Order this 

MOTOROLA document by AN974/D 

i SEMICONDUCTOR 



APPLICATION NOTE AN974 



MC68HC11 Floating-Point Package 



INTRODUCTION 

The MC68HC11 is a very powerful and capable single- 
chip microcomputer. Its concise instruction set combined 
with six powerful addressing modes, true bit manipula- 
tion, 16-bit arithmetic operations and a second 16-bit in- 
dex register make it ideal for control applications requiring 
both high-speed I/O and high-speed calculations. 

While most applications can be implemented by using 
the 16-bit integer precision of the MC68HC11, certain ap- 
plications or algorithms may be difficult or impossible to 
implement without floating-point math. The goal in writ- 
ing the MC68HC1 1 floating-point package was to provide 
a fast, flexible way to do floating-point math for just such 
applications. 

The HC1 1 floating-point package (HC1 1 FP) implements 
more than just the four basic math functions (add, sub- 
tract, multiply, and divide); it also provides routines to 
convert from ASCII to floating point and from floating 
point to ASCII. For those applications that require it, the 
three basic trig functions SINe, COSine, and TANgent are 
provided along with some trig utility functions for con- 
verting to and from both radians and degrees. The square 
root function is also included. 

For those applications that can benefit by using both 
integer and floating-point operations, there are routines 
to convert to and from integer and floating-point format. 

The entire floating-point package requires just a little 
over 2k bytes of memory and only requires ten bytes of 
page-zero RAM in addition to stack RAM. All temporary 
variables needed by the floating-point routines, reside on 
the stack. This feature makes the routines completely re- 
entrant as long as the ten bytes of page zero RAM are 
saved before using any of the routines. This will allow 
both interrupt routines and main line programs to use 
the floating-point package without interfering with one 
another. 

FLOATING-POINT FORMAT 

FLOATING-POINT ACCUMULATOR FORMAT 

The ten bytes of page-zero RAM are used for two soft- 
ware floating-point accumulators FPACC1 and FPACC2. 
Each five-byte accumulator consists of a one-byte ex- 
ponent, a three-byte mantissa, and one byte that is used 
to indicate the mantissa sign. 

The exponent byte is used to indicate the position of 
the binary point and is biased by decimal 128 ($80) to 
make floating-point comparisons easier. This one-byte 
exponent gives a dynamic range of about 1 x 10±38. 



The mantissa consists of three bytes (24 bits) and is 
used to hold both the integer and fractional portion of 
the floating-point number. The mantissa is always as- 
sumed to be "normalized" (i.e., most-significant bit of 
the most-significant byte a one). A 24-bit mantissa will 
provide slightly more than seven decimal digits of pre- 
cision. 

A separate byte is used to indicate the sign of the man- 
tissa rather than keeping it in twos complement form so 
that unsigned arithmetic operations may be used when 
manipulating the mantissa. A positive mantissa is indi- 
cated by this byte being equal to zero ($00). A negative 
mantissa is indicated by this byte being equal to minus 
one ($FF). 

FPACC1 82 C90FDB 00 +3.1415927 
FPACC2 82 C90FDB FF -3.1415927 

MEMORY FORMAT 

The way that floating-point numbers are stored in 
memory or the "memory format" of a floating-point num- 
ber is slightly different than its floating-point accumulator 
format. In order to save memory, floating-point numbers 
are stored in memory in a format called "hidden bit nor- 
malized form". 

In this format, the number is stored into four consec- 
utive bytes with the exponent residing at the lowest ad- 
dress. The mantissa is stored in the next three consecutive 
bytes with the most-significant byte stored in the lowest 
address. Since the most-significant bit of the mantissa in 
a normalized floating-point number is always a one, this 
bit can be used to store the sign of the mantissa. This 
results in positive numbers having the most-significant 
bit of the mantissa cleared (zero) and negative numbers 
having their most-significant bit set (one). An example 
follows: 

82 490FDB +3.1415927 
82 C90FDB -3.1415927 
There are four routines that can be used to save and 
load the floating-point accumulators and at the same time 
convert between the floating-point accumulator and 
memory format. These routines are discussed in detail 
in FLOATING-POINT ROUTINES. 

ERRORS 

There are seven error conditions that may be returned 
by the HC11 floating-point package. When an error oc- 
curs, the condition is indicated to the calling program by 
setting the carry bit in the condition code register and 
returning an error code in the A-accumulator. The error 
codes and their meanings are explained below. 




Error # Meaning 

1 Format Error in ASCII to Floating-Point Con- 
version 

2 Floating-Point Overflow 

3 Floating-Point Underflow 

4 Division by Zero (0) 

5 Floating-Point Number too Large or Small to 
Convert to Integer 

6 Square Root of a Negative Number 

7 TAN of it/2 (90°) 



NOTE 

None of the routines check for valid floating-point 
numbers in either FPACC1 or FPACC2. Having illegal 
floating-point values in the floating-point accu- 
mulators will produce unpredictable results. 



FLOATING-POINT ROUTINES 

The following paragraphs provide a description of each 
routine in the floating-point package. The information 
provided includes the subroutine name, operation per- 
formed, subroutine size, stack space required, other sub- 
routines that are called, input, output, and possible error 
conditions. 

The Stack Space required by the subroutine includes 
not only that required for the particular routines local 
variables, but also stack space that is used by any other 
subroutines that are called including return addresses. 
Note that the trig functions require a good deal of stack 
space. 

Since some applications may not require all the rou- 
tines provided in the floating-point package, the descrip- 
tion of each routine includes the names of other 
subroutines that it calls. This makes it easy to determine 
exactly which subroutines are required for a particular 
function. 



ASCII-TO-FLOATING-POINT CONVERSION 



Subroutine Name: ASCFLT 

Operation: ASCII (X) » FPACC1 

Size: 352 Bytes (includes NUMERIC subroutine) 

Stack Space: 14 Bytes 

Calls: NUMERIC, FPNORM, FLTMUL, PSHFPAC2, PULFPAC2 

Input: X register points to ASCII string to convert. 

Output: FPACC1 contains the floating-point number. 

Error Conditions: Floating-point format error may be returned. 

Notes: This routine converts an ASCII floating-point number to the format required by all of the 



floating-point routines. Conversion stops either when a non-decimal character is encoun- 
tered before the exponent or after one or two exponent digits have been converted. The 
input format is very flexible. Some examples are shown below. 

20.095 

0.125 

7.2984E + I0 
167.824E5 
005.9357E-7 
500 

FLOATING-POINT MULTIPLY 

Subroutine Name: 
Operation: 
Size: 

Stack Space: 
Calls: 
Input: 
Output: 

Error Conditions: 



FLTMUL 

FPACC1 x FPACC2 I FPACC1 
169 Bytes 
10 Bytes 

PSHFPAC2, PULFPAC2, CHCK0 

FPACC1 and FPACC2 contain the numbers to be multiplied. 

FPACC1 contains the product of the two floating-point accumulators. FPACC2 remains 

unchanged. 

Overflow, Underflow. 
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FLOATING-POINT ADD 



Subroutine Name: FLTADD 

Operation: FPACC1 + FPACC2 » FPACC1 

Size: 194 Bytes 

Stack Space: 6 Bytes 

Calls: PSHFPAC2, PULFPAC2, CHCKO 

Input: FPACC1 and FPACC2 contain the numbers to be added. 

Output: FPACC1 contains the sum of the two numbers. FPACC2 remains unchanged. 

Error Conditions: Overflow, Underflow. 

Notes: The floating-point add routine performs full signed addition. Both floating-point accumu- 
lators may have mantissas with the same or different sign. 



FLOATING-POINT SUBTRACT 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 
Calls: 
Input: 
Output: 

Error Conditions: 
Notes: 



FLTSUB 

FPACC1 - FPACC2 > FPACC1 
12 Bytes 
8 Bytes 
FLTADD 

FPACC1 and FPACC2 contain the numbers to be subtracted. 

FPACC1 contains the difference of the two numbers (FPACC1-FPACC2). FPACC2 remains 

unchanged. 

Overflow, Underflow, 

Since FLTADD performs full signed addition, the floating-point subtract routine inverts the 
sign byte of FPACC2, calls FLTADD, and then changes the sign of FPACC2 back to what it 
was oric 



FLOATING-POINT DIVIDE 



Subroutine Name: FLTDIV 

Operation : FPACC1 + FPACC2 I FPACC1 

Size: 209 Bytes 

Stack Space: 11 Bytes 

Calls: PSHFPAC2, PULFPAC2 

Input: FPACC1 and FPACC2 contain the divisor and dividend respectively. 

Output: FPACC1 contains the quotient. FPACC2 remains unchanged. 

Error Conditions: Divide by zero, Overflow, Underflow 



FLOATING-POINT-TO-ASCII CONVERSION 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 

Calls: 

Input: 

Output: 



Error Conditions: 



FLTASC 
FPACC1 » (X) 
370 Bytes 
28 Bytes 

FLTMUL, FLTCMP, PSHFPAC2, PULFPAC2 

FPACC1 contains the number to be converted to an ASCII string. The index register X points 
to a 14 byte string buffer. 

The buffer pointed to by the X index register contains an ASCII string that represents the 
number in FPACC1. The string is terminated with a zero (0) byte and the X register points 
to the start of the string. 
None 
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FLOATING POINT COMPARE 



FLTCMP 

FPACC1 - FPACC2 
42 Bytes 
None 
None 

FPACC1 and FPACC2 contain the numbers to be compared. 

Condition codes are properly set so that all branch instructions may be used to alter program 
flow. FPACC1 and FPACC2 remain unchanged. 
None 

UNSIGNED INTEGER TO FLOATING POINT 



Subroutine Name: UINT2FLT 

Operation: (16-bit unsigned integer) I FPACC1 

Size: 18 Bytes 

Stack Space: 6 Bytes 

Calls: FPNORM, CHCKO 

Input: The lower 16-bits of the FPACC1 mantissa contain an unsigned 16-bit integer. 

Output: FPACC1 contains the floating-point representation of the 16-bit unsigned integer. 

Error Conditions: None 

SIGNED INTEGER TO FLOATING POINT 

Subroutine Name: SINT2FLT 

Operation: (16-bit signed integer) > FPACC1 

Size: 24 Bytes 

Stack Space: 7 Bytes 

Calls: UINT2FLT 

Input: The lower 16-bits of the FPACC1 mantissa contain a signed 16-bit integer. 

Output: FPACC1 contains the floating-point representation of the 16-bit signed integer. 

Error Conditions: None 

FLOATING POINT TO INTEGER 

Subroutine Name: FLT2INT 

Operation: FPACC1 I (16-bit signed or unsigned integer) 

Size: 74 Bytes 

Stack Space: 2 Bytes 

Calls: CHCKO 

Input: FPACC1 may contain a floating-point number in the range 65535«FPACC1 s= - 32767. 

Output: The lower 16-bits of the FPACC1 mantissa will contain a 16-bit signed or unsigned number. 

Error Conditions: None 

Notes: If the floating-point number in FPACC1 is positive, it will be converted to an unsigned 

integer. If the number is negative it will be converted to a signed twos complement integer. 
This type of conversion will allow 16-bit addresses to be represented as positive numbers 
in floating-point format. Any fractional part of the floating-point number is discarded. 



TRANSFER FPACC1 TO FPACC2 



Subroutine Name: TFR1T02 

Operation: FPACC1 » FPACC2 

Size: 13 Bytes 

Stack Space: Bytes 

Calls: None 

Input: FPACC1 contains a floating-point number. 

Output: FPACC2 contains the same number as FPACC1. 

Error Conditions: None 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 
Calls: 
Input: 
Output: 

Error Conditions: 
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FLOATING-POINT FUNCTIONS 

The following paragraphs describe the supplied float- 
ing-point functions, returned results, and possible error 
conditions. Note that even though the Taylor series which 
is used to calculate the trig functions requires that the 
input angle be expressed in radians; less precision is lost 
through angle reduction if the angle being reduced is 
expressed in degrees. Once the angle is reduced, the 
DEG2RAD subroutine is called to convert the angle to 
radians. 



To reduce the number of factors in the Taylor expan- 
sion series all angles are reduced to fall between 0° and 
45° by the ANGRED subroutine. This subroutine returns 
the reduced angle in FPACC1 along with the quad number 
that the original angle was in, and a flag that tells the 
calling routine whether it actually needs to calculate the 
sine or the cosine of the reduced angle to obtain the 
proper answer. 



SQUARE ROOT 



Subroutine Name: FLTSQR 

Operation: V FPACC1 > FPACC1 

Size: 104 Bytes 

Stack Space: 21 Bytes 

Calls: TFR1T02, FLTDIV, FLTADD, PSHFPAC2, PULFPAC2 

Input: FPACC1 contains a valid floating-point number. 

Output: FPACC1 contains the square root of the original number. FPACC2 is unchanged. 

Error Conditions: NSQRTERR is returned if the number in FPACC1 is negative and FPACC1 remains un- 
changed. 



SINE 



Subroutine Name: FLTSIN 

Operation: SIN (FPACC1 ) » FPACC1 

Size: 380 Bytes (Includes SINCOS subroutine) 

Stack Space: 50 Bytes 

Calls: ANGRED, SINCOS, DEG2RAD, PSHFPAC2, PULFPAC2 

Input: FPACC1 contains an angle in radians in the range -2-rrs=FPACC1=s + 2ir. 

Output: FPACC1 contains the sine of FPACC1, and FPACC2 remains unchanged. 

Error Conditions: None 

Notes: The Taylor Expansion Series is used to calculate the sine of the angle between 0° and 45° 

tir-s-4). The subroutine ANGRED is called to reduce the input angle to within this range. 
Spot checks show a maximum error of +1.5x 10 7 throughout the input range. 



COSINE 



Subroutine Name: FLTCOS 

Operation: COS(FPACCI) » FPACC1 

Size: 384 Bytes (Includes SINCOS subroutine) 

Stack Space: 50 Bytes 

Calls: ANGRED, FLTSIN, DEG2RAD, PSHFPAC2 

Input: FPACC1 contains an angle in radians in the range -2-rr =s FPACC1 =s +2tt. 

Output: FPACC1 contains the cosine of FPACC1, and FPACC2 remains unchanged. 

Error Conditions: None 

Notes: The Taylor Expansion Series is used to calculate the cosine of the angle between 0° and 

45° (tt^-4). The subroutine ANGRED is called to reduce the input angle to within this range. 
Spot checks show a maximum error of +1.5 x 10 7 throughout the input range. 
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TANGENT 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 
Calls: 
Input: 
Output: 

Error Conditions: 
Notes: 



FLTTAN 

TAN (FPACC1 ) | FPACC1 

35 Bytes (Also requires FLTSIN and FLTCOS) 

56 Bytes 

TFR1T02, EXG1AND2, FLTSIN, FLTCOS, FLTDIV, PSHFPAC2, PULFPAC2 
FPACC1 contains an angle in radians in the range -2tt «S FPACC1 =s + 2tt. 
FPACC1 contains the tangent of the input angle, and FPACC2 remains unchanged. 
Returns largest legal number if tangent of ±tt + 2 is attempted. 

The tangent of the input angle is calculated by first obtaining the sine and cosine of the 
input angle and then using the following formula: TAN = SIN 4- COS. At 89.9° the tangent 
function is only accurate to 5 decimal digits. For angles greater than 89.9° accuracy de- 
creases rapidly. 



DEGREES TO RADIANS CONVERSION 



Subroutine Name: DEG2RAD 

Operation: FPACC1 x-it-180 » FPACC1 

Size: 15 Bytes 

Stack Space: 16 Bytes 

Calls: GETFPAC2, FLTMUL 

Input: Any valid floating-point number representing an angle in degrees. 

Output: Input angles equivalent in radians. 

Error Conditions: None 



RADIANS TO DEGREES CONVERSION 



Subroutine Name: RAD2DEG 

Operation: FPACC1 x 180^tt » FPACC1 

Size: 8 Bytes (Also requires DEG2RAD subroutine) 

Stack Space: 16 Bytes 

Calls: DEG2RAD 

Input: Any valid floating-point number representing an angle in radians. 

Output: Input angles equivalent in degrees. 

Error Conditions: Overflow, Underflow. 



PI 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 

Input: 

Output: 

Error Conditions: 
Notes: 



GETPI 

it » FPACC1 

6 Bytes 

None 

None 

The value of tt is returned in FPACC1. 
None 

This routine should be used to obtain the value of tt if it is required in calculations since 
it is accurate to the full 24 bits of the mantissa. 
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FORMAT CONVERSION ROUTINES 

As discussed in FLOATI9NG-POINT ACCUMULATOR 
FORMAT and MEMORY FORMAT, the format for floating- 
point numbers as they appear in the floating-point ac- 
cumulators is different than the way numbers are stored 
in memory. This was done primarily to save memory 
when a large number of floating-point variables are used 
in a program. Four routines are provided to convert to 
and from the different formats while at the same time 
moving a number into or out of the floating-point accu- 
mulators. By always using these routines to move num- 



bers into and out of the floating-point accumulators, it 
would be extremely easy to adapt this floating-point 
package to work with any other floating-point format. 

One example might be to interface this package with 
code produced by Motorola's 68HC11 'C compiler. The 
Motorola 'C compiler generates code for single-precision 
floating-point numbers whose internal format is that de- 
fined by the IEEE Standard for Binary Floating-Point 
Arithmetic. By rewriting the four routines described be- 
low the IEEE format could be easily converted to the 
format required by this floating-point package. 



Get FPACC(x) 

Subroutine Name: GETFPAC1 and GETFPAC2 

Operation: (X) » FPACC1 ; (X) » FPACC2 

Size: 22 Bytes each 

Stack Space: None 

Input: The X index register points to the 'memory formatted' number to be moved into the floating- 
point accumulator. 

Output: The number pointed to by X is in the specified floating-point accumulator. 

Error Conditions: None 



Put FPACC(x) 



Subroutine Name: 

Operation: 

Size: 

Stack Space: 
Input: 

Output: 

Error Conditions: 



PUTFPAC1 and PUTFPAC2 
FPACC1 » (X); FPACC2 » (X) 
22 Bytes each. 
None 

The X index register points to four consecutive memory locations where the number will 
be stored. 

The floating point accumulator is moved into consecutive memory locations pointed to by 
the X index register. 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 



******************************************************************************* 

* HC11FP * 

* * 

* Copyright 1986 * 

* by * 

* Gordon Doughman * 

* * 

* The source code for this floating point package for the MC68HC11 * 

* may be freely distributed under the rules of public domain. However * 

* it is a copyrighted work and as such may not be sold as a product * 

* or be included as part of a product for sale without the express * 

* permission of the author. Any object code produced by the source 

* code may be included as part of a product for sale. * 

* * 

* If there are any questions or comments about the floating point 

* package please feel free to contact me. * 



001 7 




* 








* 


0018 




* 






Gordon Doughman 


* 


0019 




* 






Motorola Semiconductor 


* 


0020 




* 






3490 South Dixie Drive 


* 


0021 




* 






Dayton, OH 45439 


* 


0022 




* 






(513) 294-2231 


* 


0023 




* 








* 


0024 




******************************************************************************* 


0025 




* 










0026 




* 










0027 




* 










0028 


0000 




ORG 


$0000 






0029 




* 










0030 


0000 


FPACC1EX 


RMB 


1 


FLOATING POINT ACCUMULATOR #1.. 




0031 


0001 


FPACC1MN 


RMB 


3 






0032 


0004 


MANTSGN1 


RMB 


1 


MANTISSA SIGN FOR FPACC1 (0=+, FF=- ) . 




0033 


0005 


FPACC2EX 


RMB 


1 


FLOATING POINT ACCUMULATOR #2. 




0034 


0006 


FPACC2MN 


RMB 


3 






0035 


0009 


MANTSGN2 


RMB 


1 


MANTISSA SIGN FOR FPACC2 (0=+, FF=- ) • 




0036 




* 










0037 




* 










0038 


0001 


FLTFMTER 


EQU 


1 


/* floating point format error in ASCFLT */ 




0039 


0002 


OVFERR 


EQU 


2 


/* floating point overflow error */ 




0040 


0003 


UNFERR 


EQU 


3 


/* floating point underflow error */ 




0041 


0004 


DIV0ERR 


EQU 


4 


/* division by error */ 




0042 


0005 


TOLGSMER 


EQU 


5 


/* number too large or small to convert to int. 


*/ 


0043 


0006 


NSQRTERR 


EQU 


6 


/* tried to take the square root of negative # 


*/ 


0044 


0007 


TAN90ERR 


EQU 


7 


/* TANgent of 90 degrees attempted */ 




0045 




* 










0046 




* 
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0047 




TTL ASCFLT 






0048 


it**************************************************************************** 


0049 


* 






* 


0050 


* 


ASCII TO FLOATING POINT ROUTINE 


* 


0051 


* 






* 


0052 


* 


This routine wilt accept most any ASCII floating point format 


* 


0053 


* 


and return a 32-bit floating point number. The following are 


* 


0054 


* 


some examples of legal ASCII floating point numbers. 


* 


0055 


* 






* 


0056 


* 


20.095 




* 


0057 


* 


0.125 




* 


0058 




7.2984E10 




* 


0059 


* 


167.824E5 




* 


0060 


* 


5.9357E-7 




* 


0061 


* 


500 




* 


0062 


* 






* 


0063 


* 


The floating point number returned is in "FPACC1". 


* 


0064 


* 






* 


0065 


* 






* 


0066 




The exponent is biased by 128 to facilitate floating point 


* 


0067 




comparisons. A pointer to the ASCII string is passed to the 


* 


0068 




routine in the D-register. 


* 


0069 








* 


0070 
0071 








* 








0072 


* 








0073 










0074 


1c 


ORG $0000 






0075 


* 








0076 


* 


FPACC1EX RMB 1 


Fl DATlur; PflTHT AmiMllt ATOR £1 

r LUH 1 INu rU 1 Pi 1 MULUPiU LH 1 VJt\ tf 1 • • 




0077 




FPACC1MN RMB 3 






0078 


* 


MANTSGN1 RMB 1 


mautt<;<;a <;inw for FParn fO-+ ff--i 




0079 


* 


FPACC2EX RMB 1 


FinATTUn PflTHT APTI IMI 11 ATflR U? 




0080 


* 


FPACC2MN RMB 3 






0081 


* 


MANTSGN2 RMB 1 


MANTISSA SIGN FOR FPACC2 (0=+, FF = - ) . 




0082 


* 








0083 


* 








0084 


* 


FLTFMTER EQU 1 






0085 


* 








0086 


* 








0087 


* 


LOCAL VARIABLES (ON 


STACK POINTED TO BY Y) 




0088 


* 








0089 0000 


EXPSIGN 


EQU 


EXPONENT SIGN (0=+, FF=- ) . 




0090 0001 


PWR10EXP EQU 1 


POWER 10 EXPONENT. 




0091 


* 








0092 


* 








0093 C000 




ORG SC000 


(TEST FOR EVB) 




0094 


* 








0095 COOO 


ASCFLT 


EQU * 






0096 COOO 3C 




PSHX 


SAVE POINTER TO ASCII STRING. 




0097 C001 BD C8 39 




JSR PSHFPAC2 


SAVE FPACC2. 




0098 C004 CE 00 00 




LDX #0 


PUSH ZEROS ON STACK TO INITIALIZE LOCALS. 




0099 C007 3C 




PSHX 


ALLOCATE 2 BYTES FOR LOCALS. 




0100 C008 DF 00 




STX FPACC1EX 


CLEAR FPACC1. 




0101 COOA DF 02 




STX FPACC1EX+2 






0102 COOC 7F 00 04 




CLR MANTSGN1 


MAKE THE MANTISSA SIGN POSITIVE INITIALLY. 




0103 COOF 18 30 




TSY 


POINT TO LOCALS. 




0104 C011 CD EE 06 




LDX 6,Y 


GET POINTER TO ASCII STRING. 




0105 C014 A6 00 


ASCFLT1 


LDAA 0,X 


GET 1ST CHARACTER IN STRING. 




0106 C016 BD C1 55 




JSR NUMERIC 


IS IT A NUMBER. 




0107 C019 25 28 




BCS ASCFLT4 


YES. GO PROCESS IT. 




0108 


* 








0109 


* 


LEADING MINUS SIGN ENCOUNTERED? 




0110 


* 








0111 C01B 81 2D 


ASCFLT2 


CMPA #'- 


NO. IS IT A MINUS SIGN? 
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0112 C01D 26 OB 




BNE 


ASCFLT3 


NO. GO CHECK FOR DECIMAL POINT. 


0113 C01F 73 00 04 




COM 


MANTSGN1 


YES. SET MANTISSA SIGN. LEADING MINUS BE 


0114 C022 08 




INX 




POINT TO NEXT CHARACTER. 


0115 C023 A6 00 




LDAA 


0,X 


GET IT. 


0116 C025 BD CI 55 




JSR 


NUMERIC 


IS IT A NUMBER? 


0117 C028 25 19 




BCS 


ASCFLT4 


YES. GO PROCESS IT. 


0118 


* 








0119 


* 


LEADING DECIMAL POINT? 


0120 


* 








0121 










0122 C02A 81 2E 


ASCFLT3 


CMPA 


ft. 


IS IT A DECIMAL POINT? 


0123 C02C 26 OB 




BNE 


ASCFLT5 


NO. FORMAT ERROR. 


0124 C02E 08 




INX 




YES. POINT TO NEXT CHARACTER. 


0125 C02F A6 00 




LDAA 


0,X 


GET IT. 


0126 C031 BD C1 55 




JSR 


NUMERIC 


MUST HAVE AT LEAST ONE DIGIT AFTER D.P. 


0127 C034 24 03 




BCC 


ASCFLT5 


GO REPORT ERROR. 


0128 C036 7E CO C1 




JMP 


ASCFLT11 


GO BUILD FRACTION. 


0129 


* 








0130 


* 


FLOATING POINT FORMAT ERROR 


0131 


* 








0132 C039 31 


ASCFLT5 


INS 




DE-ALLOCATE LOCALS. 


0133 C03A 31 




INS 






0134 C03B BD C8 43 




JSR 


PULFPAC2 


RESTORE FPACC2. 


0135 C03E 38 




PULX 




GET POINTER TO TERMINATING CHARACTER IN 


0136 C03F 86 01 




LDAA 


#FLTFMTER 


FORMAT ERROR. 


0137 C041 OD 




SEC 




SET ERROR FLAG. 


0138 C042 39 




RTS 




RETURN . 


0139 


* 








0140 


* 


PRE DECIMAL POINT 


MANTISSA BUILD 


0141 


* 








0142 C043 A6 00 


ASCFLT4 


LDAA 


O.X 




0143 C045 BD C1 55 




JSR 


NUMERIC 




0144 C048 24 72 




BCC 


ASCFLT10 




0145 C04A BD CO D2 




JSR 


ADDNXTD 




0146 C04D 08 




INX 






0147 C04E 24 F3 




BCC 


ASCFLT4 




0148 


* 








0149 


* 


PRE DECIMAL POINT 


MANTISSA OVERFLOW 


0150 


* 








0151 C050 7C 00 00 


ASCFLT6 


INC 


FPACC1EX 


INC FOR EACH DIGIT ENCOUNTERED PRIOR TO 


0152 C053 A6 00 




LDAA 


O.X 


GET NEXT CHARACTER. 


0153 C055 08 




INX 




POINT TO NEXT. 


0154 C056 BD C1 55 




JSR 


NUMERIC 


IS IT S DIGIT? 


0155 C059 25 F5 




BCS 


ASCFLT6 


YES. KEEP BUILDING POWER 10 MANTISSA. 


0156 C05B 81 2E 




CMPA 


#' . 


NO. IS IT A DECIMAL POINT? 


0157 C05D 26 OA 




BNE 


ASCFLT7 


NO. GO CHECK FOR THE EXPONENT. 


0158 


* 








0159 


* 


ANY FRACTIONAL DIGITS ARE NOT SIGNIFICANT 


0160 


* 








0161 C05F A6 00 


ASCFLT8 


LDAA 


0,X 


GET THE NEXT CHARACTER. 


0162 C061 BD C1 55 




JSR 


NUMERIC 


IS IT A DIGIT? 


0163 C064 24 03 




BCC 


ASCFLT7 


NO. GO CHECK FOR AN EXPONENT. 


0164 C066 08 




INX 




POINT TO THE NEXT CHARACTER. 


0165 C067 20 F6 




BRA 


ASCFLT8 


FLUSH REMAINING DIGITS. 


0166 C069 81 45 


ASCFLT7 


CMPA 


#'E 


NO. IS IT THE EXPONENT? 


0167 C06B 27 03 




BEQ 


ASCFLT13 


YES. GO PROCESS IT. 


0168 C06D 7E C1 17 




JMP 


FINISH 


NO. GO FINISH THE CONVERSION. 


0169 


* 








0170 


* 


PROCESS THE EXPONENT 


0171 


* 








0172 C070 08 


ASCFLT13 


INX 




POINT TO NEXT CHARACTER. 


0173 C071 A6 00 




LDAA 


O.X 


GET THE NEXT CHARACTER . 


0174 C073 BD C1 55 




JSR 


NUMERIC 


SEE IF IT'S A DIGIT. 


0175 C076 25 15 




BCS 


ASCFLT9 


YES. GET THE EXPONENT. 


0176 C078 81 2D 




CMPA 


#'- 


NO. IS IT A MINUS SIGN? 


0177 C07A 27 06 




BEQ 


ASCFLT15 


YES. GO FLAG A NEGATIVE EXPONENT. 



MOTOROLA AN974 
10 



0178 C07C 81 2B 




CMPA 


#' + 


NO. IS IT A PLUS SIGN? 


0179 C07E 27 05 




BEQ 


ASCFLT16 


YES. JUST IGNORE IT. 


0180 C080 20 B7 




BRA 


ASCFLT5 


NO. FORMAT ERROR. 


0181 C082 18 63 00 


ASCFLT15 


COM 


EXPSIGN.Y 


FLAG A NEGATIVE EXPONENT. IS IT 1ST? 


0182 C085 08 


ASCFLT16 


1NX 




POINT TO NEXT CHARACTER. 


0183 C086 A6 00 




LDAA 


0,X 


GET NEXT CHARACTER. 


0184 C088 BD C1 55 




JSR 


NUMERIC 


IS IT A NUMBER? 


0185 C08B 24 AC 




BCC 


ASCFLT5 


NO. FORMAT ERROR. 


0186 C08D 80 30 


ASCFLT9 


SUBA 


#$30 


MAKE IT BINARY. 


0187 C08F 18 A7 01 




STAA 


PWR10EXP.Y 


BUILD THE POWER 10 EXPONENT. 


0188 C092 08 




I NX 




POINT TO NEXT CHARACTER. 


0189 C093 A6 00 




LDAA 


0,X 


GET IT. 


0190 C095 BD C1 55 




JSR 


NUMERIC 


IS IT NUMERIC? 


0191 C098 24 13 




BCC 


ASCFLT14 


NO. GO FINISH UP THE CONVERSION. 


0192 C09A 18 E6 01 




LDAB 


PWR10EXP.Y 


YES. GET PREVIOUS DIGIT. 


0193 C09D 58 




LSLB 




MULT. BY 2. 


0194 C09E 58 




LSLB 




NOW BY 4. 


0195 C09F 18 EB 01 




ADDB 


PUR10EXP.Y 


BY 5. 


0196 C0A2 58 




LSLB 




BY 10. 


0197 C0A3 80 30 




SUBA 


#$30 


MAKE SECOND DIGIT BINARY. 


0198 C0A5 1B 




ABA 




ADD IT TO FIRST DIGIT. 


0199 C0A6 18 A7 01 




STAA 


PWR10EXP.Y 




0200 C0A9 81 26 




CMPA 


#38 


IS THE EXPONENT OUT OF RANGE? 


0201 COAB 22 8C 




BHI 


ASCFLT5 


YES. REPORT ERROR. 


0202 COAD 18 A6 01 


ASCFLT14 


LDAA 


PWR10EXP.Y 


GET POWER 10 EXPONENT. 


0203 COBO 18 60 00 




TST 


EXPSIGN.Y 


WAS IT NEGATIVE? 


0204 C0B3 2A 01 




BPL 


ASCFLT12 


NO. GO ADD IT TO BUILT 10 PWR EXPONENT . 


0205 C0B5 40 




NEGA 






0206 C0B6 9B 00 


ASCFLT12 ADDA 


FPACC1EX 


FINAL TOTAL PWR 10 EXPONENT. 


0207 C0B8 97 00 




STAA 


FPACC1EX 


SAVE RESULT. 


0208 COBA 20 5B 




BRA 


FINISH 


GO FINISH UP CONVERSION. 


0209 


* 








0210 


* 


PRE-DECIMAL POINT 


NON-DIGIT FOUND, IS IT A DECIMAL POINT? 


0211 


* 








0212 COBC 81 2E 


ASCFLT10 


CMPA 


#'. 


IS IT A DECIMAL POINT? 


0213 COBE 26 A9 




BNE 


ASCFLT7 


NO. GO CHECK FOR THE EXPONENT. 


0214 COCO 08 




I NX 




YES. POINT TO NEXT CHARACTER. 


0215 


* 








0216 


* 


POST 


DECIMAL POINT 


PROCESSING 


0217 


* 








0218 C0C1 A6 00 


ASCFLT1 1 


LDAA 


0,X 


GET NEXT CHARACTER. 


0219 C0C3 BD C1 55 




JSR 


NUMERIC 


IS IT NUMERIC? 


0220 C0C6 24 A1 




BCC 


ASCFLT7 


NO. GO CHECK FOR EXPONENT. 


0221 C0C8 8D 08 




BSR 


ADDNXTD 


YES. ADD IN THE DIGIT. 


0222 COCA 08 




INX 




POINT TO THE NEXT CHARACTER . 


0223 COCB 25 92 




BCS 


ASCFLT8 


IF OVER FLOW, FLUSH REMAINING DIGITS. 


0224 COCD 7A 00 00 




DEC 


FPACC1EX 


ADJUST THE 10 POWER EXPONENT. 


0225 CODO 20 EF 




BRA 


ASCFLT1 1 


PROCESS ALL FRACTIONAL DIGITS. 


0226 


* 








0227 


* 








0228 


* 








0229 C0D2 96 01 


ADDNXTD 


LDAA 


FPACC1MN 


GET UPPER 8 BITS. 


0230 C004 97 06 




STAA 


FPACC2MN 


COPY INTO FPAC2. 


0231 C0D6 DC 02 




LDD 


FPACC1MN+1 


GET LOWER 16 BITS OF MANTISSA. 


0232 C0D8 DD 07 




STD 


FPACC2MN+1 


COPY INTO FPACC2. 


0233 CODA 05 




LSLD 




MULT. BY 2. 


0234 CODB 79 00 01 




ROL 


FPACC1MN 


OVERFLOW? 


0235 CODE 25 2E 




BCS 


ADDNXTD1 


YES. DON'T ADD THE DIGIT IN. 


0236 COEO 05 




LSLD 




MULT BY 4. 


0237 C0E1 79 00 01 




ROL 


FPACC1MN 


OVERFLOW? 


0238 C0E4 25 28 




BCS 


ADDNXTD1 


YES. DON'T ADD THE DIGIT IN. 


0239 C0E6 D3 07 




ADDD 


FPACC2MN+1 


BY 5. 


0240 C0E8 36 




PSHA 




SAVE A. 


0241 C0E9 96 01 




LDAA 


FPACC1MN 


GET UPPER 8 BITS. 


0242 COEB 89 00 




ADC A 


#0 


ADDIN POSSABLE CARRY FROM LOWER 16 BITS 


0243 COED 9B 06 




ADDA 


FPACC2MN 


ADD IN UPPER 8 BITS. 



0244 COEF 97 01 






STAA 


FPACC1MN 


SAVE IT. 




0245 C0F1 32 






PULA 




RESTORE A. 




0246 C0F2 25 1A 






BCS 


ADDNXTD1 


OVERFLOW? IF SO DON'T ADD IT IN. 




0247 C0F4 05 






LSLD 




BY 10. 




0248 C0F5 79 00 


D1 




ROL 


FPACC1MN 






0249 C0F8 DD 02 






STD 


FPACC1MN+1 


SAVE THE LOWER 16 BITS. 




0250 COFA 25 12 






BCS 


ADDNXTD1 


OVERFLOW? IF SO DON'T ADD IT IN. 




0251 COFC E6 00 






LDAB 


0,X 


GET CURRENT DIGIT. 




0252 COFE CO 30 






SUBB 


#$30 


MAKE IT BINARY. 




0253 C100 4F 






CLRA 




16-BIT. 




0254 C101 03 02 






ADDD 


FPACC1MN+1 


ADD IT IN TO TOTAL. 




0255 C103 DD 02 






STD 


FPACC1MN+1 


SAVE THE RESULT. 




0256 C105 96 01 






LDAA 


FPACC1MN 


GET UPPER 8 BITS. 




0257 C107 89 00 






ADCA 


#0 


ADD IN POSSIBLE CARRY. OVERFLOW? 




0258 C109 25 03 






BCS 


ADDNXTD1 


YES. COPY OLD MANTISSA FROM FPACC2. 




0259 C10B 97 01 






STAA 


FPACC1MN 


NO. EVERYHING OK. 




0260 C10D 39 






RTS 




RETURN. 




0261 C10E DC 07 




ADDNXTD1 


LDD 


FPACC2MN+1 


RESTORE THE ORIGINAL MANTISSA BECAUSE 




0262 C1 10 DD 02 






STD 


FPACC1MN+1 


OF OVERFLOW. 




0263 C1 12 96 06 






LDAA 


FPACC2MN 






0264 C114 97 01 






STAA 


FPACC1MN 






0265 C116 39 






RTS 




RETURN. 




0266 




* 










0267 




* 










0268 




* 










0269 




* 


NOW FINISH UP CONVERSION BY MULTIPLYING THE RESULTANT MANTISSA 




0270 




* 


BY 10 FOR EACH POSITIVE POWER OF 10 EXPONENT RECIEVED OR BY .1 




0271 




* 


(DIVIDE BY 10) FOR EACH NEGATIVE POWER OF 10 EXPONENT RECIEVED. 




0272 




* 










0273 




* 










0274 C1 17 




FINISH 


EQU 


* 






0275 C1 17 CD EF 


06 


STX 


6,Y 


SAVE POINTER TO TERMINATING CHARACTER IN STRING. 


0276 C11A CE 00 


00 




LDX 


#FPACC1EX 


POINT TO FPACC1 . 




0277 C11D BD C1 


80 




JSR 


CHCKO 


SEE IF THE NUMBER IS ZERO. 




0278 CI 20 27 2C 






BEQ 


FINISH3 


QUIT IF IT IS. 




0279 C122 96 00 






LDAA 


FPACC1EX 


GET THE POWER 10 EXPONENT. 




0280 C124 18 A7 01 




STAA 


PWR10EXP.Y 


SAVE IT. 




0281 C127 86 98 






LDAA 


#$80+24 


SET UP INITIAL EXPONENT (# OF BITS + BIAS). 




0282 C129 97 00 






STAA 


FPACC1EX 






0283 C12B BD C1 


61 




JSR 


FPNORM 


GO NORMALIZE THE MANTISSA. 




0284 C12E 18 60 


01 




TST 


PWR10EXP,Y 


IS THE POWER 10 EXPONENT POSITIVE OR ZERO? 




0285 C131 27 1B 






BEQ 


FINISH3 


IT'S ZERO, WE'RE DONE. 




0286 C133 2A OB 






BPL 


FINISH1 


IT'S POSITIVE MULTIPLY BY 10. 




0287 C135 CE C1 


8B 




LDX 


#C0NSTP1 


NO. GET CONSTANT .1 (DIVIDE BY 10). 




0288 C138 BD C8 


66 




JSR 


GETFPAC2 


GET CONSTANT INTO FPACC2. 




0289 C13B 18 60 


01 




NEG 


PWR10EXP,Y 


MAKE THE POWER 10 EXPONENT POSITIVE. 




0290 C13E 20 06 






BRA 


FINISH2 


GO DO THE MULTIPLIES. 




0291 C140 CE C1 


8F 


FINISH1 


LDX 


#CONST10 


GET CONSTANT '10' TO MULTIPLY BY. 




0292 C143 BD C8 


66 




JSR 


GETFPAC2 


GET CONSTANT INTO FPACC2. 




0293 C146 BD C1 


93 


FINISH2 


JSR 


FLTMUL 


GO MULTIPLY FPACC1 BY FPACC2, RESULT IN FPACC1 . 


0294 C149 18 6A 01 




DEC 


PWR10EXP,Y 


DECREMENT THE POWER 10 EXPONENT . 




0295 C14C 26 F8 






BNE 


FINISH2 


GO CHECK TO SEE IF WE'RE DONE. 




0296 CHE 31 




FINISH3 


INS 




DE-ALLOCATE LOCALS. 




0297 C14F 31 






INS 








0298 C150 BD C8 


43 




JSR 


PULFPAC2 


RESTORE FPACC2. 




0299 C153 38 






PULX 




GET POINTER TO TERMINATING CHARACTER IN STRING. 


0300 C154 39 






RTS 




RETURN WITH NUMBER IN FPACC1 . 




0301 




* 










0302 




* 










0303 C155 




NUMERIC 


EQU 


* 






0304 C155 81 30 






CMPA 


#'0 


IS IT LESS THAN AN ASCII 0? 




0305 C157 25 06 






BLO 


NUMERIC1 


YES. NOT NUMERIC. 




0306 C159 81 39 






CMPA 


#'9 


IS IT GREATER THAN AN ASCII 9? 




0307 C15B 22 02 






BHI 


NUMERIC1 


YES. NOT NUMERIC. 




0308 C15D OD 






SEC 




IT WAS NUMERIC. SET THE CARRY. 




0309 C15E 39 






RTS 




RETURN. 





MOTOROLA 
12 



AN974 



0310 


C15F 


OC 




NUMERIC1 


CLC 




NON- NUMERIC CHARACTER. CLEAR THE CARRY. 


0311 


C160 


39 






RTS 




RETURN. 


0312 








* 








0313 


C161 






FPNORM 


EQU 


* 




0314 


C161 


CE 00 


00 




LDX 


#FPACC1EX 


POINT TO FPACC1. 


0315 


C164 


80 1A 






BSR 


CHCKO 


CHECK TO SEE IF IT'S 0. 


0316 


C166 


27 14 






BEQ 


FPN0RM3 


YES. JUST RETURN. 


0317 


C168 


70 00 


01 




TST 


FPACC 1MN 


IS THE NUMBER ALREADY NORMALIZED? 


0318 


C16B 


2B OF 






BMI 


FPN0RM3 


YES. JUST RETURN . . 


0319 


C16D 


DC 02 




FPN0RM1 


LDD 


FPACC1MN+1 


GET THE LOWER 16 BITS OF THE MANTISSA. 


0320 


C16F 


7A 00 00 


FPN0RM2 


DEC 


FPACC1EX 


DECREMENT THE EXPONENT FOR EACH SHIFT. 


0321 


C172 


27 OA 






BEQ 


FPN0RM4 


EXPONENT WENT TO 0. UNDERFLOW. 


0322 


C174 


05 






LSLD 




SHIFT THE LOWER 16 BITS. 


0323 


C175 


79 00 


01 




ROL 


FPACC1MN 


ROTATE THE UPPER 8 BITS. NUMBER NORMALIZED? 


0324 


C178 


2A F5 






BPL 


FPN0RM2 


NO. KEEP SHIFTING TO THE LEFT. 


0325 


C17A 


DD 02 






STD 


FPACC1MN+1 


PUT THE LOWER 16 BITS BACK INTO FPACC1 . 


0326 


C17C 


OC 




FPN0RM3 


CLC 




SHOW NO ERRORS. 


0327 


C170 


39 






RTS 




YES. RETURN . 


0328 


C17E 


00 




FPN0RM4 


SEC 




FLAG ERROR. 


0329 


C17F 


39 






RTS 




RETURN. 


0330 








* 








0331 


C180 






CHCKO 


EQU 


* 


CHECKS FOR ZERO IN FPACC POINTED TO BY X. 


0332 


C180 


37 






PSHB 




SAVE D. 


0333 


C181 


36 






PSHA 






0334 


C182 


EC 00 






LDD 


o,x 


GET FPACC EXPONENT & HIGH 8 BITS. 


0335 


C184 


26 02 






BNE 


CHCK01 


NOT ZERO. RETURN. 


0336 


C186 


EC 02 






LDD 


2.X 


CHECK LOWER 16 BITS. 


0337 


C188 


32 




CHCK01 


PULA 




RESTORE D. 


0338 


C189 


33 






PULB 






0339 


C18A 


39 






RTS 




RETURN WITH CC SET. 


0340 








* 








0341 


C18B 


70 4C 


CC CD 




FCB 


$7D,$4C,$CC,$CD 0.1 DECIMAL 


0342 


C18F 


84 20 


00 00 


CONST10 


FCB 


$84, $20, $00, $00 10.0 DECIMAL 


0343 








* 








0344 








* 









AN974 
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13 



0345 








TTL 


FLTMUL 


*************************************************** 


0346 
0347 






* 






* 


0348 






* 




FPMULT: FLOATING POINT MULTIPLY * 


0349 






* 






* 


0350 






* 


THIS FLOATING POINT 


MULTIPLY ROUTINE MULTIPLIES "FPACC1 " BY * 


0351 






* 


"FPACC2 


11 AND PLACES THE RESULT IN TO FPACC1 . FPACC2 REMAINS * 


0352 






* 


UNCHANGED. 


* 


0353 






* 






WORSE CASE = 2319 CYCLES = 1159 US a 2MHz 


0354 
0355 






* 






* 

*************************************************** 












0356 






* 








0357 






* 








0358 


C193 




FLTMUL 


EQU 


* 




0359 


C193 


BD C8 39 




JSR 


PSHFPAC2 


SAVE FPACC2. 


0360 


C196 


CE 00 00 




LDX 


#FPACC1EX 


POINT TO FPACC1 


0361 


C199 


BD C1 80 




JSR 


CHCKO 


CHECK TO SEE IF FPACC1 IS ZERO. 


0362 


C19C 


27 31 




BEQ 


FPMULT3 


IT IS. ANSWER IS 0. 


0363 


C19E 


CE 00 05 




LDX 


#FPACC2EX 


POINT TO FPACC2. 


0364 


C1A1 


BD C1 80 




JSR 


CHCKO 


IS IT 0? 


0365 


C1A4 


26 08 




BNE 


FPMULT4 


NO. CONTINUE. 


0366 


C1A6 


4F 




CLRA 




CLEAR D. 


0367 


C1A7 


5F 




CLRB 






0368 


C1A8 


DD 00 




STD 


FPACC1EX 


MAKE FPACC1 0. 


0369 


C1AA 


DD 02 




STD 


FPACC1MN+1 




0370 


C1AC 


20 21 




BRA 


FPMULT3 


RETURN . 


0371 


C1AE 


96 04 


FPMULT4 


LDAA 


MANTSGN1 


GET FPACC1 EXPONENT. 


0372 


C1B0 


98 09 




EORA 


MANTSGN2 


SET THE SIGN OF THE RESULT. 


0373 


C1B2 


97 04 




STAA 


MANTSGN1 


SAVE THE SIGN OF THE RESULT. 


0374 


C1B4 


96 00 




LDAA 


FPACC1EX 


GET FPACC1 EXPONENT . 


0375 


C1B6 


9B 05 




ADDA 


FPACC2EX 


ADD IT TO FPACC2 EXPONENT. 


0376 


C1B8 


2A 07 




BPL 


FPMULT1 


IF RESULT IS MINUS AND 


0377 


C1BA 


24 OC 




BCC 


FPMULT2 


THE CARRY IS SET THEN: 


0378 


C1BC 


86 02 


FPMULT5 


LDAA 


#OVFERR 


OVERFLOW ERROR. 


0379 


C1BE 


OD 




SEC 




SET ERROR FLAG. 


0380 


C1BF 


20 H 




BRA 


FPMULT6 


RETURN. 


0381 


C1C1 


25 05 


FPMULT1 


BCS 


FPMULT2 


IF RESULT IS PLUS & THE CARRY IS SET THEN ALL OK. 


0382 


C1C3 


86 03 




LDAA 


#UNFERR 


ELSE UNDERFLOW ERROR OCCURED. 


0383 


C1C5 


OD 




SEC 




FLAG ERROR. 


0384 


C1C6 


20 OD 




BRA 


FPMULT6 


RETURN. 


0385 


C1C8 


8B 80 


FPMULT2 


ADDA 


#$80 


ADD 128 BIAS BACK IN THAT WE LOST. 


0386 


C1CA 


97 00 




STAA 


FPACC1EX 


SAVE THE NEW EXPONENT. 


0387 


C1CC 


BO C1 D9 




JSR 


UMULT 


GO MULTIPLY THE "INTEGER" MANTISSAS. 


0388 


C1CF 


7D 00 00 


FPMULT3 


TST 


FPACC1EX 


WAS THERE AN OVERFLOW ERROR FROM ROUNDING? 


0389 


C102 


27 E8 




BEQ 


FPMULT5 


YES. RETURN ERROR. 


0390 


C1D4 


OC 




CLC 




SHOW NO ERRORS. 


0391 


C1D5 


BD C8 43 


FPMULT6 


JSR 


PULFPAC2 


RESTORE FPACC2. 


0392 


C108 


39 




RTS 






0393 






* 








0394 






* 








0395 


C1D9 




UMULT 


EQU 


* 




0396 


C1D9 


CE 00 00 




LDX 


#0 




0397 


C1DC 


3C 




PSHX 




CREATE PARTIAL PRODUCT REGISTER AND COUNTER. 


0398 


C1DD 


3C 




PSHX 






0399 


C1DE 


30 




TSX 




POINT TO THE VARIABLES. 


0400 


C1DF 


86 18 




LDAA 


#24 


SET COUNT TO THE NUMBER OF BITS. 


0401 


C1E1 


A7 00 




STAA 


0,X 




0402 


C1E3 


96 08 


UMULT1 


LDAA 


FPACC2MN+2 


GET THE L.S. BYTE OF THE MULTIPLIER. 


0403 


C1E5 


44 




LSRA 




PUT L.S. BIT IN CARRY. 


0404 


C1E6 


24 OC 




BCC 


UMULT2 


IF CARRY CLEAR, DON'T ADD MULTIPLICAND TO P.P. 


0405 


C1E8 


DC 02 




LDD 


FPACC1MN+1 


GET MULTIPLICAND L.S. 16 BITS. 


0406 


C1EA 


E3 02 




ADDD 


2,X 


ADD TO PARTIAL PRODUCT. 


0407 


C1EC 


ED 02 




STD 


2,X 


SAVE IN P.P. 


0408 


C1EE 


96 01 




LDAA 


FPACC1MN 


GET UPPER 8 BITS OF MULTIPLICAND. 


0409 


C1F0 


A9 01 




ADC A 


M 


ADD IT W/ CARRY TO P.P. 
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STAA 
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oAVt IU rAK 1 1AL rKUUUL 1 . 


n/ 1 1 n c/ aa m 
UhII LI rH OO Ul 


1 IMI II TO 

UMUL I c 
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n/ 15 ri pa aa no 
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2 X 




n/, 17 n pp. aa n7 

Uh I j Llro OO Uj 




R0R 


3 X 




^^L^L riFa 7A nn nA 

Uh Ih L 1 r A lO UU UO 




ROR 


Fparr?MW 

r rHLrLCnli 


SHIFT THE MULTIPLIER TO THE RIGHT 1 BIT 


fiAiR ncn 7A nn n7 

Ut 1 J L \ r\J (O UU Uf 




ROR 


FDarrOMiJ+1 

r rMLLCnN T I 




n/. 1 a ronn va nn nn 
UHlO LeUU /o UU Uo 




dpid 

KUK 


r rALLcrlNTe 




ni.17 ron7 Aa nn 

Uh 1 f LtUj OA UU 




ncr 

U t L 


n Y 

U, A 


nnuc ypto 


n/. 1 fl rone OA nr 

Uh lO LcUO CO UL 




□ MP 


I IMI II T 1 
UHUL I I 


NU. Nttr uUlNu. 


n/ 1 o ron7 An n 1 

Uh I y LeU 1 OU U I 




TCT 
1 o 1 


1 Y 


nnpc dadt t a i Donni itt upph to rp wnDMa i i 7Fn? 

UUtb rAKIlAL rKUUUL 1 NttU IU DC NUKrlMLlCCUr 


n/ on rono oo nr 
UhcU LcUr CD UL 




BM I 


1 IMI II T7 
UnUL 1 j 


un tpt aucuPD s. dptiidu 

NU. oC 1 ANoWCK it KCIUKN. 


n/. 01 r-onn 7H nn nA 
Uhc I LcUb (o uu uo 




1 CI 
LoL 


TrALLcrlN 


nPT hit TuaT uac cm ptph miT op p p dpht ctfd 

be 1 D 1 1 1 nA 1 WAS 3n 1 r 1 CU UU 1 Ur r.r KCulolCK. 


n/.oo rone ao n7 

Uhcc LcUc oy Uj 




KUL 


7 Y 


DMT IT Rank" T UTfl TUP PiDT 1 fll PDnni ITT 
rU 1 1 1 OMLA, I N 1 U 1 nC rHK 1 1ML rKUUUL 1 ■ 


UHCJ LC 1 U OT UC 




R0L 


2 X 




uhch lc i c oy u i 




KUL 


1 Y 




fiAPR r?ii 7a nn nn 

UhCO LclH 1 h UU UU 




UCL 


cpftrrlpY 
rrMLL 1 CA 


PTY FYPflWF WT 
r 1 A C ArUNCn 1 • 


n/oA roi7 7r> nn nA 

UhcO Lc I 1 f v uu uo 


1 IMI II T7 


TCT 


rrALLcFlN 


nn uf uppn to pmmn thf paptiai PPnnurTo 

UU WC NCCU IU KUUNU 1 rlC rMK 1 I ML rKUUUL 1 f 


n^07 roia oa m 

UHcf Lc I A lA lo 




DDI 

DrL 


1 IMI II XL 
UHUL I H 


un IIICT PFTIIPU 
NU. JUSI KCIUKPi. 


nAOft roir ft no 

UhcO LcIL tL Uc 




LDD 


2 X 


YFC fiFT THF 1 FACT CinWTFTnaUT 1A RITS 
ltd. UC 1 1 rlC LCAo 1 o I UN Ir 1 UAH 1 IO DllO. 


nAOO roiP rx nn m 

UHcY Lc It Lj uu ui 




annn 

AUUU 




ann 1 

MUU 1 . 


n/.7n rooi cn no 
U*OU Lee I tu uc 




CTH 
o 1 U 


9 V 


cav/F DPCI II T 
oAVC KtoUL 1 • 


n/.7i roo7 aa m 
Uhj i iccj AO u l 




LDAA 


1 V 

1 ,X 


DDflDI TATC TUDmiru 
rKUr 1 LA 1 c 1 MKUUun . 


n/.70 rooc no nn 
uhjc Lcco oy uu 




ADCA 


*n 
»u 




nz.77 roo7 47 m 

Uhjj Lecf Ar Ul 




CT A A 
b 1 AA 


1 Y 

1 iX 




nA7A rooo oa no 
uhjh Lccy ch uy 




nrr 

DLL 


I IMI II TL 
UrIUL 1 H 


ic raDDY n cad ai i ic nv 

lr LAKKT LLCAK ALL lo UK. 


n^s. poor aa m 

Uhjj LCCD OO U I 




DflD 
KUK 


1 Y 


i c unT nuPD pi r»u DfiTaTP paddy t uto d d 

1 r NU 1 UVCK r LUW . KU 1 A 1 C LAKK T 1 « 1 U r.r. 


nA7A roon aa no 

UHjo LccU OO Uc 




ROR 


Y 
C , A 




nA77 rooc AA n7 

U*tJ( Leer OO Uj 




ROR 


7 V 
j,A 




nA^ft r?7i 7r nn nn 

UhjO LCJ I f L UU UU 




i ur 

l NL 


r r ALL 1 CA 


1 ID TUP FYDPlUPUT 
Ur 1 UC CArUNCN 1 . 


U4J7 LCJH J 1 


1 IMI II TA 
unu l i h 


I NS 




TaYF rru iutpp ncp CTark* 

1 AKC LUUN 1CK Urr OlALK. 


nAAn r07e. 7ft 

UhhU Lcjj jo 




Dl II Y 
KUL A 




fCT M C 1A DTTC nC DADT I A 1 DDCim IPT 
lit 1 fl.d. IO Olio UP rAK 1 1 AL rKUUUL 1 . 


n/./. i r07A nc ni 
Uhh l Lcjo Ur U 1 




STX 


r n A rr 1 MM 
rHALL IMN 


DMT IT TU CDAPP1 

rU I II IN rrALL I . 


n/./.o r07» 7o 
Uhhc LeocS jc 




PULA 




PCT I C Q DTTC DC DADTTAI DDHHI IPT 

be I L.o. O Bllb Ur PAKIIAL PKUUUL I . 


n/./.7 r07O Q7 n7 
Uhhj Lciy yf Uj 




STAA 


pPALLlMN+e 


PUT II IN rPACCI . 


0444 C23B 39 




RTS 




RETURN. 


0445 


* 








0446 


* 








0447 


* 









AN974 



MOTOROLA 



0448 




TTL 


FLTADD 






0449 


****************************************************************************** 


0450 


* 








* 


0451 


* 




FLOATING POINT ADDITION 


* 


0452 


* 








* 


0453 


* 


This subroutine performs floating point addition of the two numbers 


* 


0454 


* 


in FPACC1 and FPACC2. 


The result of the addition is placed in 


* 


0455 


* 


FPACC1 while FPACC2 remains unchanged. This subroutine performs 


* 


0456 


* 


full signed addition 


so either number may be of the same or opposite * 


0457 


* 


sign. 






* 


0458 


* 




WORSE CASE = 1030 CYCLES = 515 uS 3 2MHz 


* 


0459 


* 








* 


0460 


****************************************************************************** 


0461 


* 










0462 


* 










0463 C23C 


FLTADD EQU 


* 






0464 C23C BO C8 39 




JSR 




SAVE FPACC2. 




0465 C23F CE 00 05 




LDX 




POINT TO FPACC2 




0466 C242 BD C1 80 




JSR 


CHCKO 


IS IT ^FRO? 




0467 C245 26 05 




BNE 


FLTADD 1 


NO. GO CHECK FOR IN FPACC1 . 




0468 C247 OC 


FLTADD6 CLC 




un FRRORS 




0469 C248 BO C8 43 


FLTADD10 JSR 


pi ti fpat? 

rut-rrttLt 


PFSTflRF FPATT? 




0470 C24B 39 




RTS 




AaKUFR IN FPACC1 RETURN 




0471 C24C CE 00 00 


FLTADD1 LDX 




POINT Tfl FPArn 




0472 C24F BD C1 80 




JSR 


CHCKO 


IS IT ZERO? 

lO 11 i_ £. r\ LJ : 




0473 C252 26 OE 




BNE 


FLTADD2 


NO. GO ADD THE NUMBER. 




0474 C254 DC 05 


FLTADD4 LDD 


FPACT2EX 


ANSWER IS IN FPACC2. MOVE IT INTO FPACC1 . 




0475 C256 DD 00 




STD 


fpapt i fx 

r r nui< 1 c a 






0476 C258 DC 07 




LDD 


FPArr?MW+i 


MOVE LOUER 16 BITS OF MANTISSA 




0477 C25A DD 02 




STD 


pparr 1 mn+ 1 

rrn^L 1 nn T 1 






0478 C25C 96 09 




LDAA 




MOVE FPACC2 MANTISSA SIGN INTO FPACC1 




0479 C25E 97 04 




STAA 


nrtn i gun i 






0480 C260 20 E5 




BRA 


r L 1 HUUD 


RETURN 

r\ L. 1 Un.ri ■ 




0481 C262 96 00 


FLTADD2 LDAA 




HFT FPArn FYPriWFWT 

Ul 1 rrnLiL 1 LArUnlLn 1 . 




0482 C264 91 05 




CMPA 


FPATPPFY 


ARF THF FY.PONFNTS THE SAMF? 




0483 C266 27 23 




BEQ 


pi Tann7 

r L I MUU / 


yp^ nn Ann thf mamt t ^a ' ^ 




0484 C268 90 05 




SUBA 


fpaptPfy 

r r HLLC.C A 


wn FPArriFY- FPArr?FY fpatpi > fpaptP'? 




0485 C26A 2A OF 




BPL 


ci Tann7 

r L I MUUJ 


ypq r,n ruprf pamhp 




0486 C26C 40 




NEGA 




un FPArn < fpatp? makt niFFPRFUTF ppi^ittuf 




0487 C260 81 17 




CMPA 




adc TUC ill IMQCOC U1TUTU BAIJrc'J 
AKL 1 Pit NUntJtKo Wl 1 Pi I N KMNut ( 




0488 C26F 22 E3 




BHI 


ci TAnn/, 


un cohCO tc i iorcD rn udvp it tuth CDflrn 

NU . PrALLc 1 O L AKucK . UU PIUVC 11 IN IU PrMLL 1 . 




0489 C271 16 




TAB 




dmt n r cccDCiirc tu d 
rU 1 UlrrtKtNLt IN D. 




0490 C272 OB 00 




ADOB 


rrALL I fcX 


LUKKLL I rrALL I CArUNtN I . 




0491 C274 07 00 




STAB 


rrALL I La 


CAV/C TUC DCCIII T 
OnVt I fit KtoUL 1 . 




0492 C276 CE 00 01 




LDX 


wrrALL IMN 


Dfl TUT Tfi ED A f*r* 1 MAUTTCCA 

rU INI I U PrALL I MAN I I ooA . 




0493 C279 20 07 




BRA 


c i t Anne. 
PL 1 AUU3 


rn ncunoMAi 17c cDArn cno tuc Ann 
bu LJtNUKMAL 1 tt rrALLI PUK 1 Pit AUU . 




0494 C27B 81 17 


FLTADD3 CMPA 


tfd.5 


CDAPfl CDAPfO ADC TUC UIIMQCDC (JTTUTU DAUTCl 

rrALLI > rrALLc. AKt 1 Mt NUPiocKS) WllnlN KANut > 




0495 C27D 22 C8 




BHI 


FLTADD6 


un AUCUCD Al DC A n V TU CDjrrl IIICT DCTIIDU 
NU. ANoWtK ALKt AU T IN PrALL 1 . JUo 1 Kt 1 UKN . 




0496 C27F CE 00 06 




LDX 


#FPACC2MN 


POINT TO THE MANTISSA TO DENORMALIZE. 




0497 C282 64 00 


FLTADD5 LSR 


o,x 


SHIFT THE FIRST BYTE OF THE MANTISSA. 




0498 C284 66 01 




ROR 


1,X 


THE SECOND. 




0499 C286 66 02 




ROR 


2,X 


AND THE THIRD. 




0500 C288 4A 




DECA 




DONE YET? 




0501 C289 26 F7 




BNE 


FLTADD5 


NO. KEEP SHIFTING. 




0502 C28B 96 04 


FLTAD07 LDAA 


MANTSGN1 


GET FPACC1 MANTISSA SIGN. 




0503 C28D 91 09 




CMPA 


MANTSGN2 


ARE THE SIGNS THE SAME? 




0504 C28F 27 4B 




BEQ 


FLTADD1 1 


YES. JUST GO ADD THE TWO MANTISSAS. 




0505 C291 7D 00 04 




TST 


MANTSGN1 


NO. IS FPACC1 THE NEGATIVE NUMBER? 




0506 C294 2A 14 




BPL 


FLTADD8 


NO. GO DO FPACC1 - FPACC2. 




0507 C296 DE 06 




LDX 


FPACC2MN 


YES. EXCHANGE FPACC1 & FPACC2 BEFORE THE SUB. 




0508 C298 3C 




PSHX 




SAVE IT. 




0509 C299 DE 01 




LDX 


FPACC1MN 


GET PART OF FPACC1 . 




0510 C29B DF 06 




STX 


FPACC2MN 


PUT IT IN FPACC2. 




0511 C290 38 




PULX 




GET SAVED PORTION OF FPACC2 




0512 C29E DF 01 




STX 


FPACC1MN 


PUT IT IN FPACC1. 
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ncn rr>*n nc no 
Ubi3 CZAO DE 08 




i nv 
LDa 


CDArP7Mkl-*9 
rrALLcMN+t 


TFT I rKJFP A RTTC. SL Cir.W flF FPAPf? 


nc.1/ r^no 7r 
UdTh LtAt OL 




DC U V 




CAUp TT 


UdTj CZAj Dt K)5 




LOX 


r rALL I rSn+c. 


rcT i rtuFD ft cine k. cir.u df FParri 

ut l LUWtK o dl l o cv o i un ur r r ml. l, i . 


1 A r^AC. nc nft 
UjIO LcMj Ur Uo 




STX 


FOArr?MW+? 
r rnLLtnHTt 


PUT IT TW FPATr? 
rUI 1 1 1 ri rrni<i<C ■ 


nC17 Oh7 in 
Uj 1 / LtAf 30 




Dl It V 

rULA 




P,FT ^AUFn PART fiF FPAPf? 

Ul 1 3nVLU rttl\ 1 Ur irnl,l.t.. 


HRifl r^Aft nc m 
Uj I o LcAO U r Uj 




CTV 
o I A 


pd Arr 1 MkJ+ ? 

rrALL IPIrl^c 


PUT TT TM FPATP1 
ru 1 11 INT rALL 1 ■ 


ncio p^aa nr ro 
Uj It LcRfK Dl Ut 


hL I ADDS 


i nn 

LUU 


cd A rr 1 mu+ 1 
rrALL IPIN* i 


ftFT 1 flUFP 1A RTT^ DF FPArPI 
Lit i LUWtK io di i a ur rrALL i. 


neon ro*r oi nv 
UOtU LiAL Uf 




ci ion 


cd a rr PMkJ-4- 1 
rrALttnN+ 1 


CMRTDATT 1 fiUFP 1A RIT^ flF FPATf*? 
OUD 1 KAL I LLfWCK IO Di lo Ur rrALLt. 


nCD1 ri*c nn (to 
USaT CaAc DD Ua 




cm 


rrALL inN+ I 


CAV/C OCCI II T 
OAVt KtoUL 1 . 


ncoi rood oa ni 

Usee laBU to ui 




LDAA 


rrALL IHN 


pet uiru ft bttc nc cd Arr 1 mamt t cca 
ut I niun o ui i o ur rrALL i pian i i ooa . 


UjAj LcBd ta Uo 




SBCA 


cd a r r Ouu 
r rALLtnN 


CltDTDATT Urru ft DITC fiF FPATP7 
oUD I KAL I niun O Dl i o ur rrALLt. 


UJC4 LCDH Tf UT 




STAA 


cd a rr 1 mu 
rrALL IFIN 


CAV/C TUC DFCIII T TC TUF D p CI II T UFP.ATIVF7 
bA V t I nt K t oUL I . lo I ri t KC3UL I NtuRI Ivt; 


ncic rOaA 01. 1A 
U 3c J LlDO AH 1 O 




BCC 


ci T*nnQ 
r L I AUUt 


un rn uhdmai T7C tuf dfciii t 

NU • uU NUKP1AL 1 Ac. 1 nt KtbUL 1 . 


nc.5A r?oft oa m 

UJ^O LcDO TO U I 




i n a a 


cd a rr 1 mm 
rrALL I riN 


YFC UFHATF THF MAWTTCCA 
T to . NtuA It 1 fit PIAN 1 losH. 


UJA/ LAOA hj 




rr*H a 






UJtO LlDD jo 




P C U i 




9AUF THF PFClll T 
ohvc i nc kcoul i • 


ns?o p?rp nr n? 

UJA7 LCDL UL UA 




i nn 

LUU 


cd Arr 1 MM-*- 1 
r rALL i pin^ i 


CFT 1 rHJFP 1A RITQ 
ut I LUWtK IO Dl Id. 


n«;7n p?rf 




LUtid 




criPM tuf nuF i c rnMDi fmfut 
ruKri i nt UNt o LunrLtPitN i . 


U JJ 1 LAor hj 




rnu a 






ncr? rom rT nn m 

Ujjc LALU Lj UU U 1 




ADDD 


41 
ff I 


criDM tuc Tuni c rnMDi cmfut 
rUKPl 1 nt 1 WU o LUPlrLtPltN 1 . 


hrtt r9n nn no 

Ujjj LcLj UU UA 




STO 


CD Arr 1 Mid J. 1 

rrALL lrlN+ l 


CAV/C TUC OCCIH T 
oAVt 1 nt KtoUL 1 . 


n^7/. r^rc to 
Ujjh LcLj jc 




PULA 




rCT IIDDCD ft DTTC DAP^* 

ut 1 UrrtK O olio BALK ■ 


nczc pdpa no nn 

Ujjj LALO Or UU 




ADCA 


ffU 


Ann tu DrtccTDi c paddv 
ADD IN rUbblDLt LAKKT . 


nc^A rora 07 m 

UjjO LALO Tf Ul 




STAA 


cd a rr 1 mu 
r rALLIMN 


CA\/C DCCI II T 


Uj.5/ LalA oo rr 




LDAA 


ff*r r 


CUntl TU A T CDAPP1 IP IICPHTM/C 

SHOW THAT rrALLT IS NtuAIIvt. 


nc*?ft core 07 n/. 

Ujjo LALL t / UH 




STAA 


MAUTCrU 1 

MAN I bun I 




ncro pt-pc an pi ai 

UjjV LAL t dU LI O I 


ci t a nno 
r L I AUUt 


JSR 


CDUrtDM 
r rNUKH 


rrt urtDMAi I7C tuc dcciii t 

uU NUKPIAL 1 At 1 nt KtdULI. 


UJHU L£U I CH uo 




arr 

DLL 


ci t Ann *\ o 

r L I AUU I C 


CUCPYTH T UC * C CM CP1 PFTI IPM 
tVtKliniNU O UK oU Kt 1 UKN ■ 


n^Ai r?nT aa ht 

UJH 1 LtUJ OO Uj 




LDAA 


iH IU CFDD 
ffUPi rtKK 


nunFPFi nu nrn iPFn ntiPiur uhdmai t 7 a t t nw 

UNUtKrLUW ULLUKtU UUK1NU NUKPIAL 1 AA 1 1 UN . 


UjHC LcUj UU 




SEC 




CI AP CDDPlD 
rLAu tKKUK. 


n^AT r?nA 7f r? ar 

UJH j LlUO l El L.C HO 




JMP 


ci t Ann i n 

r L l AUU 1 u 


PFTI IPM 
Kt 1 UKN . 


n^AA r?no 7f p? A7 

U3HH LtUlr ft LA Hf 


FLTAD012 JMP 


c i TAnnA 

r L 1 AUUO 


PAUIT RPAMPU TUAT CAP CDPlM UCDC 
LAN 1 DKANLn 1 nn \ rnK r KUPl n t Kt . 


UJH J 


* 








UJHO ItUL UL Ut 


FLTA0D11 


LDD 


rrALL I PIN* I 


pct i phjcd 1A ditc nc CDArri 
ut 1 LUWtK IO Di 1 o Ul" PrALL 1 . 


nsA7 r?nF n7 




ADDD 


rrALLtPiN* I 


Ann TT TPl TUC 1 PAJCP 1A DITC PlC CDAPr9 
AUU II IU I nt LUWtK IO Dl I o Ur rrALLc. 


n^AA p?cn nn n? 

Ujho LAtU UU UA 




STD 


cd a rr i yu4. 1 
r rALL mN+ 1 


CAV/C DCCIII T r LI CDArri 

oAVt KtoUL 1 IN rrALL 1 . 


niAO p?f? oa ni 

UJ4T LlCc TO U 1 




LDAA 


CD Arr 1 MU 
rrALL IPIN 


rCT IIDDCD ft qttc nc CDAPrl 
ut 1 UrrtK O Olio Ur rrALL 1 . 


OSSfl T?FA OO OA 




ADCA 


c d a rr?MU 
r rALLtPiN 


Ann IT /UTTU fftDDVV TPl IIDDCD ft QTTC nc CDArr9 
AUU 11 IW1 1 n LAKKT J 1 U UrrtK o olio Ur rr ALLc . 


0551 T?FA Q7 (11 




STAA 


c da rr 1 mu 
rrALL i pin 


CAV/C TUC DCCIII T 
oAVt 1 nt KtoUL 1 . 






BCC 


fi Tinril? 

r L I AUU I c 


UP! PlV/CDCI PHJ CPt II ICT DCTI IDU 
NU UVtK r LUW oU JUo 1 Kt 1 UKN . 


ns^T p?fa 7A nn ni 

UJJJ LACM IO UU Ul 




R0R 


c d a rr 1 mu 
rrALL I PIN 


Df IT TUC PADDY TUT/"! TUC MAUTTCCA 

KUI 1 nt LAKKT INIU 1 nt PlANMbbA. 


nssA r?Fn 7A nn n? 




R0R 


CDArr 1 mu+1 
rrALL I pin* I 


DDflDTPATC TUDniiru MAUTTCCA 
rKUr 1 uA 1 1 1 flKUUbn MAN 1 1 ooA . 


n'iS'i r?Fn 7A nn nT 




R0R 


cd a rr 1 Mki + ') 

PrALL I PlN + c 




ns^A t?ft 7r nn nn 

UJ JO L C r J r L UU UU 




INC 


cd Arr 1 cv 
rrALL I tA 


1 ID TUC MAUTTCCA DV 1 
Ur 1 nt HAN 1 1 ooA o T I . 


ns^7 r?FA ?A F1 

Ujji LcrO £0 t I 




BNE 


ci t Ann i o 

r L 1 AUU 1 C. 


CUCDVTUIUriC C\Y MICT DCTI IDU 

tVtKT 1 M I NU b UK. JUbl Kt 1 UKN . 


n^^A T?FA AA VO 
UjjO Ltiro OO Ut 




LDAA 


ffUVr t KK 


dcciii T iiac rnn i a o r c pi\/cdci ni j 
KtbUL 1 WAb 1 UU LAKUt . UvbKh LUW. 


n^^o r5Ffi nn 

Ujjt L,trft UU 




SEC 




Cl Ar CDDr*VD 

rLAu tKKUK. 


UboU C2F8 ft CZ 48 




JMP 


ri t a 1 P 

FLTADDIO 


RETURN. 


0561 


* 








0562 


* 








0563 


* 









0564 TTL FLTSUB 

0565 ****************************************************************************** 

0566 * * 

0567 * FLOATING POINT SUBTRACT SUBROUTINE * 

0568 * * 

0569 * This subroutine performs floating point subtraction ( FPACC1 - FPACC2) * 

0570 * by inverting the sign of FPACC2 and then calling FLTADD since * 

0571 * FLTADD performs complete signed addition. Upon returning from * 

0572 * FLTADD the sign of FPACC2 is again inverted to leave it unchanged * 

0573 * from its original value. * 

0574 * 

0575 * WORSE CASE = 1062 CYCLES = 531 uS 3 2MHz * 

0576 * 

0577 ****************************************************************************** 

0578 * 

0579 * 

0580 C2FE FLTSUB EQU * 

0581 C2FE 8D 03 BSR FLTSUB1 INVERT SIGN. 

0582 C300 BO C2 3C JSR FLTADD GO DO FLOATING POINT ADD. 

0583 C303 96 09 FLTSUB1 LDAA MANTSGN2 GET FPACC2 MANTISSA SIGN. 

0584 C305 88 FF EORA #$FF INVERT THE SIGN. 

0585 C307 97 09 STAA MANTSGN2 PUT BACK. 

0586 C309 39 RTS RETURN. 

0587 * 
0588 

0589 * 
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0590 








TTL 


FLTDIV 






0591 






****************************************************************************** 


0592 






* 








* 


0593 






* 




FLOATING POINT DIVIDE 


* 


0594 






* 








* 


0595 






* 


This subroutine performs signed floating point divide. The 


* 


0596 






* 


operation performed 


is FPACC1/FPACC2. The divisor (FPACC2) is left 


* 


0597 






* 


unaltered and the answer is placed in FPACC1 . There are several 


* 


0598 






* 


error 


conditions that can be returned by this routine. They are: 


* 


0599 






* 


a) division by zero 


. b) overflow, c) underflow. As with all 


* 


0600 






* 


other 


routines, an error is indicated by the carry being set and 


* 


0601 






* 


the error code being in the A-reg. 


* 


0602 






* 








* 


0603 






* 




WORSE CASE = 2911 CYCLES = 1455 US 3 2MHz 


* 


0604 
0605 






* 








* 
















0606 






* 










0607 






* 










0608 C30A 






FLTDIV 


EQU 


* 






0609 C30A CE 


00 


05 




LDX 


#FPACC2EX 


POINT TO FPACC2. 




0610 C300 BD 


C1 


80 




JSR 


CHCK0 


IS THE DIVISOR 0? 




0611 C310 26 


04 






BNE 


FLTD1V1 


NO. GO SEE IF THE DIVIDEND IS ZERO. 




0612 C312 86 


04 






LDAA 


#DIV0ERR 


YES. RETURN A DIVIDE BY ZERO ERROR. 




0613 C314 00 








SEC 




FLAG ERROR. 




0614 C315 39 








RTS 




RETURN. 




0615 C316 CE 


00 


00 


FLTD1V1 


LDX 


#FPACC1EX 


POINT TO FPACC1. 




0616 C319 BD 


CI 


80 




JSR 


CHCK0 


IS THE DIVIDEND 0? 




0617 C31C 26 


02 






BNE 


FLTDIV2 


NO. GO PERFORM THE DIVIDE. 




0618 C31E 0C 








CLC 




YES. ANSWER IS ZERO. NO ERRORS. 




0619 C31F 39 








RTS 




RETURN. 




0620 C320 BD 


C8 39 


FLTDIV2 


JSR 


PSHFPAC2 


SAVE FPACC2. 




0621 C323 96 


09 






LDAA 


MANTSGN2 


GET FPACC2 MANTISSA SIGN. 




0622 C325 98 


04 






EORA 


MANTSGN1 


SET THE SIGN OF THE RESULT. 




0623 C327 97 


04 






STAA 


MANTSGN1 


SAVE THE RESULT. 




0624 C329 CE 


00 


00 




LDX 


#0 


SET UP WORK SPACE ON THE STACK. 




0625 C32C 3C 








PSHX 








0626 C32D 3C 








PSHX 








0627 C32E 3C 








PSHX 








0628 C32F 86 


18 






LDAA 


#24 


PUT LOOP COUNT ON STACK. 




0629 C331 36 








PSHA 








0630 C332 30 








TSX 




SET UP POINTER TO WORK SPACE. 




0631 C333 DC 


01 






LDD 


FPACC1MN 


COMPARE FPACC1 & FPACC2 MANTISSAS. 




0632 C335 1A 


93 


06 




CPD 


FPACC2MN 


ARE THE UPPER 16 BITS THE SAME? 




0633 C338 26 


04 






BNE 


FLTDIV3 


NO. 




0634 C33A 96 03 






LDAA 


FPACC1MN+2 


YES. COMPARE THE LOWER 8 BITS. 




0635 C33C 91 


08 






CMPA 


FPACC2MN+2 






0636 C33E 24 


10 




FLTDIV3 


BHS 


FLTDIV4 


IS FPACC2 MANTISSA > FPACC1 MANTISSA? NO. 




0637 C340 7C 


00 


05 




INC 


FPACC2EX 


ADD 1 TO THE EXPONENT TO KEEP NUMBER THE SAME. 




0638 






* 






DID OVERFLOW OCCUR? 




0639 C343 26 


19 






BNE 


FLTDIV14 


NO. GO SHIFT THE MANTISSA RIGHT 1 BIT. 




0640 C345 86 


02 




FLTDIV8 


LDAA 


#OVFERR 


YES. GET ERROR CODE. 




0641 C347 OD 








SEC 




FLAG ERROR. 




0642 C348 38 






FLTD1V6 


PULX 




REMOVE WORKSPACE FROM STACK. 




0643 C349 38 








PULX 








0644 C34A 38 








PULX 








0645 C34B 31 








INS 








0646 C34C BD 


C8 43 




JSR 


PULFPAC2 


RESTORE FPACC2. 




0647 C34F 39 








RTS 




RETURN. 




0648 C350 DC 


02 




FLTDIV4 


LDD 


FPACC1MN+1 


DO AN INITIAL SUBTRACT IF DIVIDEND MANTISSA IS 




0649 C352 93 


07 






SUBD 


FPACC2MN+1 


GREATER THAN DIVISOR MANTISSA. 




0650 C354 DD 


02 






STD 


FPACC1MN+1 






0651 C356 96 


01 






LDAA 


FPACC1MN 






0652 C358 92 


06 






SBCA 


FPACC2MN 






0653 C35A 97 


01 






STAA 


FPACC1MN 






0654 C35C 6A 


00 






DEC 


0,X 


SUBTRACT 1 FROM THE LOOP COUNT . 





AN974 



MOTOROLA 
19 



0655 C35E 


74 


00 06 


FLTDIV14 


LSR 


FPACC2MN 


SHIFT THE DIVISOR TO THE RIGHT 1 BIT. 


0656 C361 


76 00 07 




ROR 


FPACC2MN+1 




0657 C364 


76 


00 08 




ROR 


FPACC2MN+2 




0658 C367 96 


00 




LDAA 


FPACC1EX 


GET FPACC1 EXPONENT. 


0659 C369 


06 


05 




LDAB 


FPACC2EX 


GET FPACC2 EXPONENT. 


0660 C36B 


50 






NEGB 




ADD THE TWO'S COMPLEMENT TO SET FLAGS PROPERLY. 


0661 C36C 


1B 






ABA 






0662 C36D 


2B 


06 




BM1 


FLTDIV5 


IF RESULT MINUS CHECK CARRY FOR POSS. OVERFLOW. 


0663 C36F 


25 


06 




BCS 


FLTDIV7 


IF PLUS & CARRY SET ALL IS OK. 


0664 C371 


86 


03 




LDAA 


#UNFERR 


IF NOT, UNDERFLOW ERROR . 


0665 C373 


20 03 




BRA 


FLTDIV6 


RETURN WITH ERROR. 


0666 C375 


2; 


CE 


FLTDIV5 


BCS 


FLTD1V8 


IF MINUS & CARRY SET OVERFLOW ERROR. 


0667 C377 


8B 


81 


FLTDIV7 


ADDA 


#$81 


ADD BACK BIAS+1 (THE '1' COMPENSATES FOR ALGOR.) 


0668 C379 


97 


00 




STAA 


FPACC1EX 


SAVE RESULT. 


0669 C37B 


DC 


01 


FLTDIV9 


LDD 


FPACC1MN 


SAVE DIVIDEND IN CASE SUBTRACTION DOESN'T GO. 


0670 C37D 


ED 


04 




STD 


4,X 




0671 C37F 


96 


03 




LDAA 


FPACC1MN+2 




0672 C381 


A7 06 




STAA 


6,X 




0673 C383 


DC 


02 




LDD 


FPACC1MN+1 


GET LOWER 16 BITS FOR SUBTRACTION. 


0674 C385 


93 


07 




SUBD 


FPACC2MN+1 




0675 C387 


DD 


02 




STD 


FPACC1MN+1 


SAVE RESULT. 


0676 C389 


96 


01 




LDAA 


FPACC1MN 


GET HIGH 8 BITS. 


0677 C38B 


92 


06 




SBCA 


FPACC2MN 




0678 C38D 


97 


01 




STAA 


FPACC1MN 




0679 C38F 


2A 


08 




BPL 


FLTD 1 V1 


SUBTRACTION WENT OK. GO DO SHIFTS. 


0680 C391 


EC 


04 




LDD 


4,X 


RESTORE OLD DIVIDEND. 


0681 C393 DD 


01 




STD 


FPACC1MN 




0682 C395 


A 6 


06 




LDAA 


6,X 




0683 C397 


97 


03 




STAA 


FPACC1MN+2 




0684 C399 


69 


03 


FLTDIV10 


ROL 


3,X 


ROTATE CARRY INTO QUOTIENT. 


0685 C39B 


69 


02 




ROL 


2,X 




0686 C39D 


69 


01 




ROL 


1,X 




0687 C39F 


78 


00 03 




LSL 


FPACC1MN+2 


SHIFT DIVIDEND TO LEFT FOR NEXT SUBTRACT. 


0688 C3A2 


79 


00 02 




ROL 


FPACC1MN+1 




0689 C3A5 


79 


00 01 




ROL 


FPACC1MN 




0690 C3A8 


6A 


00 




DEC 


o.x 


DONE YET? 


0691 C3AA 


26 


CF 




BNE 


FLTDIV9 


NO. KEEP GOING. 


0692 C3AC 


63 


01 




COM 


M 


RESULT MUST BE COMPLEMENTED. 


0693 C3AE 


63 


02 




COM 


2,X 




0694 C3B0 


63 


03 




COM 


3,X 




0695 C3B2 


DC 


02 




LDD 


FPACC1MN+1 


DO 1 MORE SUBTRACT FOR ROUNDING. 


0696 C3B4 


93 


07 




SUBD 


FPACC2MN+1 


( DON'T NEED TO SAVE THE RESULT. ) 


0697 C3B6 96 01 




LDAA 


FPACC1MN 




0698 C3B8 


92 


06 




SBCA 


FPACC2MN 


t NO NEED TO SAVE THE RESULT. ) 


0699 C3BA 


EC 


02 




LDD 


2,X 


GET LOW 16 BITS. 


0700 C3BC 


24 


03 




BCC 


FLTD I V1 1 


IF IT DIDNT GO RESULT OK AS IS. 


0701 C3BE 


OC 






CLC 




CLEAR THE CARRY. 


0702 C3BF 


20 


03 




BRA 


FLTDIV13 


GO SAVE THE NUMBER . 


0703 C3C1 


C3 


00 01 


FLTD IV1 1 


ADDD 


#1 


ROUND UP BY 1 . 


0704 C3C4 DD 02 


FLTDIV13 STD 


FPACC1MN+1 


PUT IT IN FPACC1. 


0705 C3C6 A6 01 




LDAA 


1,X 


GET HIGH 8 BITS. 


0706 C3C8 


89 


00 




ADCA 


#0 




C707 C3CA 


97 


01 




STAA 


FPACC1MN 


SAVE RESULT. 


0708 C3CC 


24 


09 




BCC 


FLTD1V12 


IF CARRY CLEAR ANSWER OK. 


0709 C3CE 


76 


00 01 




ROR 


FPACC1MN 


IF NOT OVERFLOW. ROTATE CARRY IN. 


0710 C3D1 


76 


00 02 




ROR 


FPACC1MN+1 




0711 C3D4 


76 


00 03 




ROR 


FPACC1MN+2 




0712 C3D7 


OC 




FLT0IV12 CLC 




NO ERRORS. 


0713 C3D8 


7E 


C3 48 




JMP 


FLTD I V6 


RETURN. 



0714 
0715 
0716 



0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 



TTL FLTASC 

********************************************************* 



********************* 



C3DB 
C3DB 
C3DC 
C3DF 
C3E2 
C3E4 
C3E5 
C3E8 
C3EA 
C3EB 
C3ED 
C3EE 
C3F0 
C3F1 
C3F3 
C3F4 
C3F7 
C3FA 
C3FB 
C3FC 
C3FD 
C3FF 
C402 
C404 
C407 
C409 
C40C 
C40E 
C410 
C411 
C414 
C417 
C41A 
C41D 
C41F 
C422 
C425 
C428 
C42A 
C420 
C430 
C433 
C436 
C438 
C43B 
C43E 
C440 
C443 
C446 



3C 

CE 00 
BD C1 

26 07 
38 

CC 30 
ED 00 
39 

DE 00 
3C 

DE 02 
3C 

96 04 
36 

BD C8 
CE 00 
3C 
3C 
3C 

18 30 
CD EE 
86 20 
7D 00 

27 05 
7F 00 
86 2D 
A7 00 
08 

CD EF 
CE C5 
BD C8 
BD C5 
22 19 
CE C5 
BD C8 
BD C5 
22 16 
18 6A 
CE C1 
BD C8 
BD C1 
20 DC 
18 6C 
CE C1 
20 F0 
CE C5 
BD C8 
BD C2 



00 



00 
45 
66 
4D 

41 
66 
40 

02 

SF 
66 
93 

02 
SB 

49 
66 
3C 



FLOATING POINT TO ASCII CONVERSION SUBROUTINE 

This subroutine performs floating point to ASCII conversion of 
the number in FPACC1. The ascii string is placed in a buffer 
pointed to by the X index register. The buffer must be at least 
14 bytes long to contain the ASCII conversion. The resulting 
ASCII string is terminated by a zero (0) byte. Upon exit the 
X Index register will be pointing to the first character of the 
string. FPACC1 and FPACC2 will remain unchanged. 



***************************************** 



FLTASC 


EQU 


* 








PSHX 




SAVE THE POINTER TO THE STRING BUFFER. 




LDX 


#FPACC1EX 


POINT TO FPACC1. 






JSR 


CHCK0 


IS FPACC1 0? 






BNE 


FLTASC1 


NO. GO CONVERT THE NUMBER. 






PULX 




RESTORE POINTER. 






LDD 


#$3000 


GET ASCII CHARACTER + TERMINATING 


BYTE. 




STD 


o,x 


PUT IT IN THE BUFFER. 






RTS 




RETURN. 




FLTASC1 


LDX 
PSHX 
LDX 
PSHX 


FPACC1 EX 
FPACC1MN+1 


SAVE FPACC1. 






LDAA 


MANTSGN1 








PSHA 










JSR 


PSHFPAC2 


SAVE FPACC2. 






LDX 


#0 








PSHX 




ALLOCATE LOCALS. 






PSHX 










PSHX 




SAVE SPACE FOR STRING BUFFER POINTER. 




TSY 




POINT TO LOCALS. 






LDX 


15, Y 


GET POINTER FROM STACK. 






LDAA 


#$20 


PUT A SPACE IN THE BUFFER IF NUMB 


ER NOT NEGATIVE. 




TST 


MANTSGN1 


IS IT NEGATIVE? 






BEO 


FLTASC2 


NO. GO PUT SPACE. 






CLR 


MANTSGN1 


MAKE NUMBER POSITIVE FOR REST OF 


CONVERSION. 




LDAA 


#'- 


YES. PUT MINUS SIGN IN BUFFER. 




FLTASC2 


STAA 
INX 


0,X 


POINT TO NEXT LOCATION. 






STX 


0,Y 


SAVE POINTER. 




FLTASC5 


LDX 


#N9999999 


POINT TO CONSTANT 9999999. 






JSR 


GETFPAC2 


GET INTO FPACC2. 






JSR 


FLTCMP 


COMPARE THE NUMBERS. IS FPACC1 > 


9999999? 




BHI 


FLTASC3 


YES. GO DIVIDE FPACC1 BY 10. 






LDX 


#P9999999 


POINT TO CONSTANT 999999.9 






JSR 


GETFPAC2 


MOVE IT INTO FPACC2. 






JSR 


FLTCMP 


COMPARE NUMBERS. IS FPACC1 > 999999.9? 




BHI 


FLTASC4 


YES. GO CONTINUE THE CONVERSION. 






DEC 


2,Y 


DECREMENT THE MULT./DIV. COUNT. 






LDX 


#CONST10 


NO. MULTIPLY BY 10. POINT TO CONSTANT. 


FLTASC6 


JSR 
JSR 


GETFPAC2 
FLTMUL 


MOVE IT INTO FPACC2. 






BRA 


FLTASC5 


GO DO COMPARE AGAIN. 




FLTASC3 


INC 


2,V 


INCREMENT THE MULT./DIV. COUNT. 






LDX 


#CONSTP1 


POINT TO CONSTANT ".1". 






BRA 


FLTASC6 


GO DIVIDE FPACC1 BY 10. 




FLTASC4 


LDX 


#CONSTP5 


POINT TO CONSTANT OF ".5". 






JSR 


GETFPAC2 


MOVE IT INTO FPACC2. 






JSR 


FLTADD 


ADD .5 TO NUMBER IN FPACC1 TO ROUND IT. 



0782 C449 D6 00 

0783 C44B CO 81 

0784 C44D 50 

0785 C44E CB 17 

0786 C450 20 OA 

0787 C452 74 00 01 

0788 C455 76 00 02 

0789 C458 76 00 03 

0790 C45B 5A 

0791 C45C 26 F4 

0792 C45E 86 01 

0793 C460 18 A7 03 

0794 C463 18 A6 02 

0795 C466 8B 08 
0796 

0797 C468 2B OA 

0798 C46A 81 08 

0799 C46C 24 06 

0800 C46E 4A 

0801 C46F 18 A7 03 
0802 

0803 C472 86 02 

0804 C474 80 02 

0805 C476 18 A7 02 

0806 C479 18 6D 03 

0807 C47C 2E 15 

0808 C47E 86 2E 

0809 C480 CD EE 00 

0810 C483 A7 00 

0811 C485 08 

0812 C486 18 6D 03 

0813 C489 27 05 

0814 C48B 86 30 

0815 C48D A7 00 

0816 C48F 08 

0817 C490 CD EF 00 

0818 C493 CE C5 2C 

0819 C496 86 07 

0820 C498 18 A7 05 

0821 C49B 18 6F 04 

0822 C49E DC 02 

0823 C4A0 A3 01 

0824 C4A2 DD 02 

0825 C4A4 96 01 

0826 C4A6 A2 00 

0827 C4A8 97 01 

0828 C4AA 25 05 

0829 C4AC 18 6C 04 

0830 C4AF 20 ED 

0831 C4B1 DC 02 

0832 C4B3 E3 01 

0833 C4B5 DD 02 

0834 C4B7 96 01 

0835 C4B9 A9 00 

0836 C4BB 97 01 

0837 C4BD 18 A6 04 

0838 C4C0 8B 30 

0839 C4C2 3C 

0840 C4C3 CD EE 00 

0841 C4C6 A7 00 

0842 C4C8 08 

0843 C4C9 18 6A 03 

0844 C4CC 26 05 

0845 C4CE 86 2E 

0846 C4D0 A7 00 

0847 C4D2 08 



LDAB 
SUBB 
NEGB 
ADDB 
BRA 

FLTASC7 LSR 
ROR 
ROR 
DECB 

FLTASC17 BNE 
LDAA 
STAA 
LDAA 
ADDA 

* 

BMI 

CMPA 

BHS 

DECA 

STAA 

* 

LDAA 

FLTASC8 SUBA 
STAA 
TST 
BGT 
LDAA 
LDX 
STAA 
INX 
TST 
BEQ 
LDAA 
STAA 
INX 

FLTASC18 STX 
FLTASC9 LDX 
LDAA 
STAA 
FLTASC10 CLR 
FLTASC11 LDD 
SUBD 
STD 
LDAA 
SBCA 
STAA 
BCS 
INC 
BRA 

FLTASC12 LDD 
ADDD 
STD 
LDAA 
ADC A 
STAA 
LDAA 
ADDA 
PSHX 
LDX 
STAA 
INX 
DEC 
BNE 
LDAA 
STAA 
INX 



FPACC1EX 
#$81 

#23 

FLTASC17 
FPACC1MN 
FPACC1MN+1 
FPACC1MN+2 

FLTASC7 
#1 
3,Y 
2,Y 



FLTASC8 
#8 

FLTASC8 

3,Y 

#2 
#2 

2, Y 

3. Y 

FLTASC9 
#'. 
0,Y 
0,X 

3, Y 

FLTASC18 
#'0 

M 

0, Y 

#DECDIG 

#7 

5,Y 

4, Y 

FPACC1MN+1 

1. X 

FPACC1MN+1 
FPACC1MN 

0, x 

FPACC1MN 
FLTASC12 
4.Y 

FLTASC1 1 
FPACC1MN+1 

1. X 

FPACC1MN+1 
FPACC1MN 

M 

FPACC1MN 

M 

#$30 
0,Y 

M 

3.Y 

FLTASC16 

#'. 

0,X 



GET FPACC1 EXPONENT. 
TAKE OUT BIAS +1. 
MAKE IT NEGATIVE. 

ADD IN THE NUMBER OF MANTISSA BITS -1. 
GO CHECK TO SEE IF WE NEED TO SHIFT AT ALL. 
SHIFT MANTISSA TO THE RIGHT BY THE RESULT (MAKE 
THE NUMBER AN INTEGER) . 

DONE SHIFTING? 
NO. KEEP GOING. 

GET INITIAL VALUE OF "DIGITS AFTER D.P." COUNT . 

INITIALIZE IT. 

GET DECIMAL EXPONENT . 

ADD THE NUMBER OF DECIMAL +1 TO THE EXPONENT. 
WAS THE ORIGINAL NUMBER > 9999999? 
YES. MUST BE REPRESENTED IN SCIENTIFIC NOTATION. 
WAS THE ORIGINAL NUMBER < 1? 

YES. MUST BE REPRESENTED IN SCIENTIFIC NOTATION. 

NO. NUMBER CAN BE REPRESENTED IN 7 DIGITS. 

MAKE THE DECIMAL EXPONENT THE DIGIT COUNT BEFORE 

THE DECIMAL POINT. 

SETUP TO ZERO THE DECIMAL EXPONENT. 

SUBTRACT 2 FROM THE DECIMAL EXPONENT. 

SAVE THE DECIMAL EXPONENT. 

DOES THE NUMBER HAVE AN INTEGER PART? (EXP. >0) 

YES. GO PUT IT OUT. 9 

NO. GET DECIMAL POINT. 

GET POINTER TO BUFFER. 

PUT THE DECIMAL POINT IN THE BUFFER. 

POINT TO NEXT BUFFER LOCATION. 

IS THE DIGIT COUNT TILL EXPONENT =0? 

NO. NUMBER IS <.1 

YES. FORMAT NUMBER AS .OXXXXXXX 

PUT THE IN THE BUFFER. 

POINT TO THE NEXT LOCATION. 

SAVE NEW POINTER VALUE. 

POINT TO THE TABLE OF DECIMAL DIGITS. 

INITIALIZE THE THE NUMBER OF DIGITS COUNT. 

CLEAR THE DECIMAL DIGIT ACCUMULATOR. 

GET LOWER 16 BITS OF MANTISSA. 

SUBTRACT LOWER 16 BITS OF CONSTANT. 

SAVE RESULT. 

GET UPPER 8 BITS. 

SUBTRACT UPPER 8 BITS. 

SAVE RESULT. UNDERFLOW? 

YES. GO ADD DECIMAL NUMBER BACK IN. 

ADD 1 TO DECIMAL NUMBER. 

TRY ANOTHER SUBTRACTION. 

GET FPACC1 MANTISSA LOW 16 BITS. 

ADD LOW 16 BITS BACK IN. 

SAVE THE RESULT. 

GET HIGH 8 BITS. 

ADD IN HIGH 8 BITS OF CONSTANT. 

SAVE RESULT. 

GET DIGIT. 

MAKE IT ASCII. 

SAVE POINTER TO CONSTANTS. 

GET POINTER TO BUFFER. 

PUT DIGIT IN BUFFER. 

POINT TO NEXT BUFFER LOCATION. 

SHOULD WE PUT A DECIMAL POINT IN THE BUFFER YET? 

NO. CONTINUE THE CONVERSION. 

YES. GET DECIMAL POINT. 

PUT IT IN THE BUFFER. 

POINT TO THE NEXT BUFFER LOCATION. 



MOTOROLA 
22 



AN974 



0848 C4D"$ CD EF 00 




FLTASC16 STX 


Y 


SAVE UPDATED POINTER. 


0849 C4D6 38 




PULX 




RESTORE POINTER TO CONSTANTS. 


0850 C4D7 08 




INX 




POINT TO NEXT CONSTANT. 


nasi r4n8 or 




I NX 










INX 






0853 C4DA 18 6A 05 




DEC 


5,Y 


DONE YET? 


0854 C4DD 26 BC 




BNE 


FLTASC10 


NO. CONTINUE CONVERSION OF "MANTISSA". 


0855 C4DF CD EE 00 




LDX 


0,Y 


YES. POINT TO BUFFER STRING BUFFER. 


0RS6 C4F? OQ 




Fl TA=;r13 DFX 




POINT TO LAST CHARACTER PUT IN THE BUFFER. 


n«S7 CLf~$ no 

UOJf LiHLJ MO UU 




LDAA 


X 


GET IT. 


0858 C4E5 81 "SO 




CMPA 


#$30 


WAS IT AN ASCII 0? 


OfiSO C4F7 27 F9 




BEQ 


FLTASC13 


YES. REMOVE TRAILING ZEROS. 


0R6fi T4F9 08 




I NX 




POINT TO NEXT AVAILABLE LOCATION IN BUFFER. 


0861 C4EA 18 E6 02 




LDAB 


2,Y 


DO WE NEED TO PUT OUT AN EXPONENT? 


0862 T4FD 27 2A 




BEQ 


FLTASC15 


NO. WE'RE DONE. 


086"^ T4FF 86 45 




LDAA 


#'E 


YES. PUT AN ' E ' IN THE BUFFER. 


0864 C4F1 A7 00 




STAA 


0,X 




0865 C4F3 08 




INX 




POINT TO NEXT BUFFER LOCATION. 


0866 C4F4 86 2B 




LDAA 


#' + 


ASSUME EXPONENT IS POSITIVE. 


0867 C4F6 A7 00 




STAA 


X 


PUT PLUS SIGN IN THE BUFFER. 


0868 C4F8 5D 




TSTB 




IS IT REALLY MINUS? 


0869 C4F9 2A 05 




BPL 


FLTASC14 


NO. IS'S OK AS IS. 


0870 C4FB 50 




NEGB 




YES. MAKE IT POSITIVE. 


0871 C4FC 86 2D 




LDAA 


#' - 


PUT THE MINUS SIGN IN THE BUFFER. 


0872 C4FE A7 00 




STAA 


0,X 




0873 C500 08 




FLTASC14 INX 




POINT TO NEXT BUFFER LOCATION. 


0874 C501 CD EF 00 




STX 


Y 


SAVE POINTER TO STRING BUFFER. 


0875 C504 4F 




CLRA 




SET UP FOR DIVIDE. 


0876 C505 CE 00 OA 




LDX 


#10 


DIVIDE DECIMAL EXPONENT BY 10. 


0877 C508 02 




IDIV 






0878 C509 37 




PSHB 




SAVE REMAINDER. 


0879 C50A 8F 




XGDX 




PUT QUOTIENT IN D. 


0880 C50B CB 30 




ADDB 


#$30 


MAKE IT ASCI I . 


0881 C50D CD EE 00 




LDX 


Y 


GET POINTER. 


0882 C510 E7 00 




STAB 


o,x 


PUT NUMBER IN BUFFER. 


0883 C512 08 




INX 




POINT TO NEXT LOCATION. 


0884 C513 33 




PULB 




GET SECOND DIGIT. 


0885 C514 CB 30 




ADDB 


#$30 


MAKE IT ASCI I . 


0886 C516 E7 00 




STAB 


o,x 


PUT IT IN THE BUFFER. 


0887 C518 08 




INX 




POINT TO NEXT LOCATION. 


0888 C519 6F 00 




FLTASC15 CLR 


X 


TERMINATE STRING WITH A ZERO BYTE . 


0889 C51B 38 




PULX 




CLEAR LOCALS FROM STACK. 


0890 C51C 38 




PULX 






0891 C51D 38 




PULX 






0892 C51E BD C8 43 




JSR 


PULFPAC2 


RESTORE FPACC2. 


0893 C521 32 




PULA 






0894 C522 97 04 




STAA 


MANTSGN1 




0895 C524 38 




PULX 




RESTORE FPACC1. 


0896 C525 DF 02 




STX 


FPACC1MN+1 




0897 C527 38 




PULX 






0898 C528 DF 00 




STX 


FPACC1EX 




0899 C52A 38 

UU77 \sJt-t\ 




PULX 




POINT TO THE START OF THE ASCII STRING. 


0900 C52B 39 




RTS 




RETURN . 


0901 




* 






0902 




* 






0903 C52C 




DECDIG EQU 


* 




0904 C52C OF 42 40 




FCB 


$0F,$42,$40 


DECIMAL 1,000,000 


0905 C52F 01 86 AO 




FCB 


$01 ,$86,$A0 


DECIMAL 100,000 


0906 C532 00 27 10 




FCB 


$00, $27, $10 


DECIMAL 10,000 


0907 C535 00 03 E8 




FCB 


$00,$03,$E8 


DECIMAL 1 000 


0908 C538 00 00 64 




FCB 


$00 $00 $64 


DECIMAL 100 


0909 C53B 00 00 OA 




FCB 


$00,$00,$0A 


DECIMAL 10 


noin rs^F nn nn m 
uyiu ljjl uu uu ui 




FCB 


$nn *fcnn $m 


npTTMAI 1 


0911 




* 






0912 




* 






0913 C541 




P9999999 EQU 


* 


CONSTANT 999999.9 



0914 C541 94 
0915 

0916 C545 

0917 C545 98 
0918 

0919 C549 

0920 C549 80 
0921 

0922 

0923 C54D 

0924 C54D 7D 

0925 C550 2A 

0926 C552 7D 

0927 C555 2A 

0928 C557 DC 

0929 C559 1A 

0930 C55C 26 

0931 C55E DC 

0932 C560 1A 

0933 C563 39 

0934 C564 96 

0935 C566 91 

0936 C568 26 

0937 C56A DC 

0938 C56C 1A 

0939 C56F 26 

0940 C571 DC 

0941 C573 1A 

0942 C576 39 
0943 

0944 
0945 



74 23 FE 



18 96 7F 



00 00 00 



00 04 
12 

00 09 

0D 

05 

93 00 

05 

07 

93 02 

04 
09 
F9 
00 

93 05 

F2 

02 

93 07 



FCB $94,$74,$23,$FE 



N9999999 EQU 



CONSTANT 9999999. 



FCB $98,$18,$96,$7F 



C0NSTP5 EQU 



CONSTANT .5 



FCB $80, $00, $00, $00 



FLTCMP EQU * 

TST MANTSGN1 IS FPACC1 NEGATIVE? 

BPL FLTCMP2 NO. CONTINUE WITH COMPARE . 

TST MANTSGN2 IS FPACC2 NEGATIVE? 

BPL FLTCMP2 NO. CONTINUE WITH COMPARE . 

LDD FPACC2EX YES. BOTH ARE NEGATIVE SO COMPARE MUST BE DONE 

CPD FPACC1EX BACKWARDS. ARE THEY EQUAL SO FAR? 

BNE FLTCMP1 NO. RETURN WITH CONDITION CODES SET. 

LDD FPACC2MN+1 YES. COMPARE LOWER 16 BITS OF MANTISSAS. 

CPD FPACC1MN+1 

FLTCMP1 RTS RETURN WITH CONDITION CODES SET. 

FLTCMP2 LDAA MANTSGN1 GET FPACC1 MANTISSA SIGN. 

CMPA MANTSGN2 BOTH POSITIVE? 

BNE FLTCMP1 NO. RETURN WITH CONDITION CODES SET. 

LDD FPACC1EX GET FPACC1 EXPONENT & UPPER 8 BITS OF MANTISSA. 

CPD FPACC2EX SAME AS FPACC2? 

BNE FLTCMP1 NO. RETURN WITH CONDITION CODES SET. 

LDD FPACC1MN+1 GET FPACC1 LOWER 16 BITS OF MANTISSA. 

CPD FPACC2MN+1 COMPARE WITH FPACC2 LOWER 16 BITS OF MANTISSA. 

RTS RETURN WITH CONDITION CODES SET. 



0946 




TTL 


INT2FLT 




0947 




****************************************************************************** 


0948 




* 




* 


no/ o 
uy^y 




* 


UNSIGNED INTEGER TO FLOATING POINT 


* 


noc;n 
UV!>U 




* 




* 






* This subroutine performs "unsigned" integer to floating point 


* 


0952 




* conversion of a 16 bit word. The 16 bit integer must be in the 


* 


0953 




* lower 


16 bits of FPACC1 mantissa. The resulting floating point 


* 






* number is returned in FPACC1 . 


* 


0955 




* 




* 


no 1 ; a 
Uyjo 




****************************************************************************** 


uy j / 




* 






uyDO 




* 






no^o rK7v 
UYjV l j / / 




UINT2FLT EQU 


* 




UYOU L J / / Lt 


nn nn 
uu uu 


LDX 


#FPACC1EX POINT TO FPACC1. 




uyo i lj/a bu 


r 1 Rn 

L I OU 


JSR 


CHCK0 IS IT ALREADY 0? 




no/."? r^n OA 


n 1 

U I 


BNE 


UINTFLT1 NO. GO CONVERT . 




UtOj Ljj r jy 




RTS 


YES. JUST RETURN. 




noA/ r^on ra 
UyOH LDOU oo 


OR 

yo 


UINTFLT1 LDAA 


#$98 GET BIAS + NUMBER OF BITS IN MANTISSA. 






nn 
uu 


STAA 


FPACC1EX INITIALIZE THE EXPONENT. 




noAA j-cr/ on 
Uyoo L504 BD 


CI 61 


JSR 


FPNORM GO MAKE IT A NORMALIZED FLOATING POINT VALUE. 




096/ C58/ OC 




CLC 


NO ERRORS. 




0968 C588 39 




RTS 


RETURN. 




0969 




* 






uy / u 




* 






uy ( i 




* 






uy r c. 




****************************************************************************** 


0077 

uy r j 




* 




* 


no7/. 
uy / h 




* 


SIGNED INTEGER TO FLOATING POINT 


* 


uyo 




* 




* 


n07A 

uy i o 




* This 


routine works just like the unsigned integer to floating 


* 


H077 

uy/ / 




* point routine except the the 16 bit integer in the FPACC1 


* 


0978 




* mantissa is considered to be in two's complement format. This 


* 


uy / y 




* will 


return a floating point number in the range -32768 to +32767. 


* 


noon 
UyoU 




* 




* 


HQR1 
uyo i 




****************************************************************************** 


0982 




* 






0983 




* 






uyot ujoy 




SI NT2FLT EQU 


* 




uyoj Ljoy ul 


n9 


LDD 


FPACC1MN+1 GET THE LOWER 16 BITS OF FPACC1 MANTISSA. 




nooA r^AR 7A 
uyoo ljob jo 




PSHA 


SAVE SIGN OF NUMBER. 




no a 7 r^Ar ?b 
uyof ljol trt 


n7 

U f 


BPL 


SINTFLT1 IF POSITIVE JUST GO CONVERT. 




DORR r^RF £7 
uyoo ljoc hj 




COMA 


MAKE POSITIVE. 




uyoy LDOr jj 




COMB 






noon r^on r7 
uyyu Ljyu lj 


nn n 1 
uu U I 


ADDD 


#1 TWO'S COMPLEMENT. 




uyy i LJ7J uu 


n? 

U£ 


STD 


FPACC1MN + 1 PUT IT BACK IN FPACC1 MANTISSA. 




uyyt ljtj ou 


pn 

t U 


SINTFLT1 BSR 


UINT2FLT GO CONVERT. 




nQQ7 r*,Q7 7? 
uyyj \sjyi jl 




PULA 


GET SIGN OF ORIGINAL INTEGER. 




uyy4 Ljyo lo 


c c 
F F 


LDAB 


#$FF GET "MINUS SIGN". 




U7TJ LijyM HU 




TSTA 


WAS THE NUMBER NEGATIVE? 




uyyo LDyts 


\ic. 


BPL 


SINTFLT2 NO. RETURN. 




noo7 r^on n7 
uyy/ loyu u/ 




STAB 


MANTSGN1 YES. SET FPACC1 SIGN BYTE. 




r\ ad q rcnc nr 

uyyo L_>yr uc 




SINTFLT2 CLC 


NO ERRORS. 




0999 C5A0 39 




RTS 


RETURN. 




1000 




* 






1001 




* 






1002 




* 







IUUj 
i nni 

1 005 








TTI 


CI T9 t UT 
rLltlN 1 








* 










1 006 






* 




FLOATING 


POINT TO INTEGER CONVERSION 




1007 






* 










1008 






* 


This subroutine wi I 


perform "unsigned" floating point to integer 


* 


1009 






* 


conversion. The floating point number if positive, will be 


* 


1010 






* 


converted to an unsigned 16 bit integer ( <= X <= 65535 ). If 


* 


1011 






* 


the number is negative it will be converted to a twos complement 




mi ? 
IU I c 






* 


16 bit 


integer. This type of conversion will allow 16 bit 


* 


1013 






* 


addresses to be represented as positive numbers when in floating 


* 


1014 






* 


point format. Any fractional number part is disguarded 




1015 






* 










1016 






****************************************************************************** 


1017 






* 










1018 






* 










1019 C5A1 






FLT2INT 


EQU 


* 








00 


00 




LDX 


#FPArrlFX 

(f rrHLi. I £ A 


pni nt in FPArn 

ruiNi l u irnl#l< 1 . 




in?i r^fli nn 


r 1 


ou 




JSR 


u n u r\ u 


IS IT 0? 




1D22 rsa7 27 


4 1 






BEQ 


FLT2INT3 


VFQ II IQT PFTI 1PM 
I Co . JUo 1 Kt 1 UKN . 




in?7 r^io nA 


uu 






LDAB 


FPirrlFY 

r rMUU 1 C A 


flFT FDiirri FVPPlklFklT 




1 Utt LJHD u 1 


81 






CMPB 


#$81 


1^ THFRF AM TNTFHFR PART"? 






34 






BLO 


FLT2INT2 


wn nn put a n in fpapci 

nU • UU rUI M U IN rrnLL 1 • 




inpA PSA F 7T1 


00 


04 




TST 


nun I our* i 


T<; THF NIJMRFR NFfiATIVF 1 ? 
i o i nr. nun dc n ricurii ivt: 




1027 C5B2 2B 


T6 






BMI 


FLT2INT1 


yfc en rnwvFRT nfi^attuf niimrfp. 






90 






CMPB 


#$90 


T <: THF NIJMRFR TOO I ARfiF Tn RF MAnF AW TWTFHFR'? 




1029 CSRA 22 


27 






BHI 


FLT2INT4 


YES. RETURN WITH AN ERROR. 




in^n tsra rn 

1 UJU LJDO L.U 


98 






SUBB 


#$98 


SUBTRACT THF BIAS PIUS THF NIJMRFR Cif RTT^ 




1(171 TSRA 7A 


00 


01 


FLT2INT5 


LSR 


FPACC1MN 


MAKE THE NUMBER AN INTEGER. 




in^2 rSRn 7 a 


00 


02 




ROR 


FPACC1MN+1 






IUjj LjLU id 


nn 
uu 


fix 

U 3 




ROR 


FPACC1MN+2 














INCB 




DONE SHIFTING? 






F4 






BNE 


FLT2INT5 


NO. KEEP GOING. 




1 UJQ LJLO / r 


nn 
uu 


nn 
uu 




CLR 


FPACC1EX 


ZERO THE EXPONENT (ALSO CLEARS THE CARRY). 












RTS 








IUJU UJkjM U 1 


8F 




FLT2INT1 


CMPB 


#$8F 


IS THE NUMBER TOO SMALL TO BE MADE AN INTEGER? 




1039 C5CC 22 


11 






BHI 


FLT2INT4 


YES. RETURN ERROR. 




1040 C5CE CO 


98 






SUBB 


#$98 


SUBTRACT BIAS PLUS NUMBER OF BITS. 




1041 C5D0 80 


E8 






BSR 


FLT2I NT5 


nn nn <?HIFT 

uu l'u oniri. 




1042 C5D2 0C 02 






LDD 


FPACC1MN+1 


GET RESULTING INTEGER. 




1043 C5D4 43 








COMA 




MAKE IT NEGATIVE. 




1044 C5D5 53 








COMB 








1045 C5D6 C3 


00 


01 




ADDD 


#1 


TWO'S COMPLEMENT . 




1046 C5D9 DD 


02 






STD 


FPACC1MN+1 


SAVE RESULT. 




1047 C5DB 7F 


00 


04 




CLR 


MANTSGN1 


CLEAR MANTISSA SIGN. (ALSO CLEARS THE CARRY ) 




1048 C5DE 39 








RTS 




RETURN. 




1049 C5DF 86 


05 




FLT2INT4 


LDAA 


#T0LGSMER 


NUMBER TOO LARGE OR TOO SMALL TO CONVERT TO I NT 




1050 C5E1 0D 








SEC 




FLAG ERROR. 




1051 C5E2 39 








RTS 




RETURN. 




1052 C5E3 CC 00 00 


FLT2INT2 


LDD 


#0 






1053 C5E6 DD 


00 






STD 


FPACC1EX 


ZERO FPACC1 . 




1054 C5E8 DD 


02 






STD 


FPACC1MN+1 


(ALSO CLEARS THE CARRY) 




1055 C5EA 39 






FLT2INT3 RTS 




RETURN. 




1056 






* 










1057 






* 










1058 






* 











1059 








TTL 


FLTSQR 




1060 






****************************************************************************** 


1061 






* 






* 


1062 






* 




SQUARE ROOT SUBROUTINE * 


1063 






* 






* 


1064 






* 


This 


routine is used to calculate the square root of the floating * 


1065 






* 


point 


number in FPACC1. If the number in FPACC1 is negative an * 


1066 






* 


error 


is returned. 


* 


1067 






* 






* 


1068 






* 






WORSE CASE = 16354 CYCLES = 8177 US a 2MHz * 


1069 






* 






* 


1070 






****************************************************************************** 


1071 






* 








1072 






* 








1073 C5EB 






FLTSQR 


EQU 


* 




1074 C5EB CE 


00 


00 




LDX 


#FPACC1EX 


POINT TO FPACC1. 


1075 C5EE BD 


CI 


80 




JSR 


CHCKO 


IS IT ZERO? 


1076 C5F1 26 01 






BNE 


FLTSQR1 


NO. CHECK FOR NEGATIVE. 


1077 C5F3 39 








RTS 




YES. RETURN. 


1078 C5F4 7D 


00 


04 


FLTSQR1 


TST 


MANTSGN1 


IS THE NUMBER NEGATIVE? 


1079 C5F7 2A 


04 






BPL 


FLTSQR2 


NO. GO TAKE ITS SQUARE ROOT. 


1080 C5F9 86 


06 






LDAA 


#NSQRTERR 


YES. ERROR. 


1081 C5FB 0D 








SEC 




FLAG ERROR. 


1082 C5FC 39 








RTS 




RETURN. 


1083 C5FD BD 


C8 


39 


FLTSQR2 


JSR 


PSHFPAC2 


SAVE FPACC2. 


1084 C600 86 


04 






LDAA 


#4 


GET ITERATION LOOP COUNT. 


1085 C602 36 








PSHA 




SAVE IT ON THE STACK. 


1086 C603 DE 


02 






LDX 


FPACC1MN+1 


SAVE INITIAL NUMBER. 


1087 C605 3C 








PSHX 






1088 C606 DE 


00 






LDX 


FPACC1EX 




1089 C608 3C 








PSHX 






1090 C609 18 


30 






TSY 




POINT TO IT. 


1091 C60B 80 


39 






BSR 


TFR1T02 


TRANSFER FPACC1 TO FPACC2. 


1092 C60D 96 


05 






LDAA 


FPACC2EX 


GET FPACC1 EXPONENT. 


1093 C60F 80 


80 






SUBA 


#$80 


REMOVE BIAS FROM EXPONENT. 


1094 C611 4C 








INCA 




COMPENSATE FOR ODD EXPONENTS (GIVES CLOSER GUESS) 


1095 C612 2A 


03 






BPL 


FLTSQR3 


IF NUMBER >1 DIVIDE EXPONENT BY 2 & ADD BIAS. 


1096 C614 44 








LSRA 




IF <1 JUST DIVIDE IT BY 2. 


1097 C615 20 


03 






BRA 


FLTSQR4 


GO CALCULATE THE SQUARE ROOT. 


1098 C617 44 






FLTSQR3 


LSRA 




DIVIDE EXPONENT BY 2. 


1099 C618 8B 


80 






ADDA 


#$80 


ADD BIAS BACK IN. 


1100 C61A 97 05 




FLTSQR4 


STAA 


FPACC2EX 


SAVE EXPONENT/2. 


1101 C61C BD 


C3 


OA 


FLTSQR5 


JSR 


FLTDIV 


DIVIDE THE ORIGINAL NUMBER BY THE GUESS. 


1102 C61F BD 


C2 3C 




JSR 


FLTADD 


ADD THE "GUESS" TO THE QUOTIENT. 


1103 C622 7A 


00 


00 




DEC 


FPACC1EX 


DIVIDE THE RESULT BY 2 TO PRODUCE A NEW GUESS. 


1104 C625 8D 


IF 






BSR 


TFR1T02 


PUT THE NEW GUESS INTO FPACC2. 


1105 C627 18 


EC 


00 




LDD 


0,Y 


GET THE ORIGINAL NUMBER. 


1106 C62A DD 


00 






STD 


FPACC1EX 


PUT IT BACK IN FPACC1 . 


1107 C62C 18 


EC 


02 




LDD 


2,Y 


GET MANTISSA LOWER 16 BITS. 


1108 C62F DD 


02 






STD 


FPACC1MN+1 




1109 C631 18 6A 04 




DEC 


4,Y 


BEEN THROUGH THE LOOP 4 TIMES? 


1110 C634 26 


E6 






BNE 


FLTSQR5 


NO. KEEP GOING. 


1111 C636 DC 


05 






LDD 


FPACC2EX 


THE FINAL GUESS IS THE ANSWER. 


1112 C638 DD 


00 






STD 


FPACC1EX 


PUT IT IN FPACC1. 


1113 C63A DC 


07 






LDD 


FPACC2MN+1 




1114 C63C DD 


02 






STD 


FPACC1MN+1 




1115 C63E 38 








PULX 




GET RID OF ORIGINAL NUMBER . 


1116 C63F 38 








PULX 






1117 C640 31 








INS 




GET RID OF LOOP COUNT VARIABLE. 


1118 C641 BD 


C8 43 




JSR 


PULFPAC2 


RESTORE FPACC2. 


1119 C644 OC 








CLC 




NO ERRORS. 


1120 C645 39 








RTS 






1121 






* 








1122 














1123 C646 






TFR1T02 


EQU 


* 





1124 C646 DC 00 LDD FPACC1EX GET FPACC1 EXPONENT & HIGH 8 BIT OF MANTISSA. 

1125 C648 DD 05 STD FPACC2EX PUT IT IN FPACC2. 

1126 C64A DC 02 LDD FPACC1MN+1 GET FPACC1 LOU 16 BITS OF MANTISSA. 

1127 C64C DD 07 STD FPACC2MN+1 PUT IT IN FPACC2. 

1128 C64E 96 04 LDAA MANTSGN1 TRANSFER THE SIGN. 

1129 C650 97 09 STAA MANTSGN2 

1130 C652 39 RTS RETURN . 

1131 * 

1132 * 
1133 



MOTOROLA 

28 



AN974 



1134 






TTL 


FLTSIN 




1135 




******************************************************* ************ *********** 


1136 




* 






* 


1137 




* 






FLOATING POINT SINE * 


1138 
1139 




* 






* 




******** 


*******! 






1K0 




* 








1141 




* 








1142 C653 




FLTSIN 


EQU 


* 




1143 C653 BD C8 


39 




JSR 


PSHFPAC2 


SAVE FPACC2 ON THE STACK. 


1144 C656 BD C7 


59 




JSR 


ANGRED 


GO REDUCE THE ANGLE TO BETWEEN +/-PI. 


1145 C659 37 






PSHB 




SAVE THE QUAD COUNT. 


1146 C65A 36 






PSHA 




SAVE THE SINE/COSINE FLAG. 


1147 C65B BO C8 


13 




JSR 


DEG2RAD 


CONVERT DEGREES TO RADIANS. 


1148 C65E 32 






PULA 




RESTORE THE SINE/COSINE FLAG. 


1149 C65F BD C6 


8F 


FLTSI N1 


JSR 


SI NCOS 


GO GET THE SINE OF THE ANGLE. 


1150 C662 32 






PULA 




RESTORE THE QUAD COUNT. 


1151 C663 81 02 






CMPA 


#2 


WAS THE ANGLE IN QUADS 1 OR 2? 


1152 C665 23 03 






BLS 


FLTSIN2 


YES. SIGN OF THE ANSWER IS OK. 


1153 C667 73 00 


04 




COM 


MANTSGN1 


NO. SINE IN QUADS 3 & 4 IS NEGATIVE. 


1154 C66A OC 




FLTSIN2 


CLC 




SHOW NO ERRORS. 


1155 C66B BD C8 


43 




JSR 


PULFPAC2 


RESTORE FPACC2 


1156 C66E 39 






RTS 




RETURN. 


1157 




* 








1158 




* 








1159 




* 









AN974 



MOTOROLA 
29 



1160 


TTL 


FLTCOS 




1161 


****************************************************************************** 


1162 


* 




* 


1163 


* 




FLOATING POINT COSINE * 


1164 


* 




* 


1165 






***************************************************** 


1166 


* 






1167 


* 






1168 C66F 


FLTCOS EQU 


* 




1169 C66F BD C8 39 


JSR 


PSHFPAC2 


SAVE FPACC2 ON THE STACK. 


1170 C672 BD C7 59 


JSR 


ANGRED 


GO REDUCE THE ANGLE TO BETWEEN +/-PI. 


1171 C675 37 


PSHB 




SAVE THE QUAD COUNT. 


1172 C676 36 


PSHA 




SAVE THE SINE/COSINE FLAG. 


1173 C677 BD C8 13 


JSR 


DEG2RAD 


CONVERT TO RADIANS. 


1174 C67A 32 


PULA 




RESTORE THE SINE/COSINE FLAG. 


1175 C67B 88 01 


EORA 


#$01 


COMPLIMENT 90'S COPMLIMENT FLAG FOR COSINE. 


1176 C67D BD C6 8F 


JSR 


S1NCOS 


GO GET THE COSINE OF THE ANGLE. 


1177 C680 32 


PULA 




RESTORE THE QUAD COUNT. 


1178 C681 81 01 


CMPA 


#1 


WAS THE ORIGINAL ANGLE IN QUAD 1? 


1179 C683 27 07 


BEQ 


FLTCOS1 


YES. SIGN IS OK. 


1180 C685 81 04 


CMPA 


#4 


WAS IT IN QUAD 4? 


1181 C687 27 03 


BEQ 


FLTCOS1 


YES. SIGN IS OK. 


1182 C689 73 00 04 


COM 


MANTSGN1 


NO. COSINE IS NEGATIVE IN QUADS 2 & 3. 


1183 C68C 7E C6 6A 


FLTCOS1 JMP 


FLTSI N2 


FLAG NO ERRORS, RESTORE FPACC2, & RETURN. 


1184 


* 






1185 


* 






1186 


* 







MOTOROLA 
30 



AN974 



1187 




TTL 


SI NCOS 




1188 


****************************************************************************** 


1189 


* 






* 


1 190 


* 




FLOATING 


POINT SINE AND COSINE SUBROUTINE * 


i i y l 


* 






* 




****************************************************************************** 


1 193 


* 








1 1 74 


* 








1 1 YD LoOr 


SINC0S 


EQU 


* 




1 -1 cm riQc 7i 
1196 C60F .56 




PSHA 




SAVE SINE/COSINE FLAG ON STACK. 


119/ C69L) DE U2 




LDX 


FPACC1MN+1 


SAVE THE VALUE OF THE ANGLE. 


1198 C692 3C 




PSHX 






1199 C693 DE 00 




LDX 


FPACC1EX 




1 -inn o/nc 7n 

1200 C695 3C 




PSHX 






1201 C696 96 04 




LDAA 


MANTSGN1 




1 OnO piOQ TTZ 

I2U2 Coyo 00 




PSHA 






1203 C699 CE C7 C3 




LDX 


#S IN FACT 


POINT TO THE FACTORIAL TABLE. 


1204 C69C 3C 




PSHX 




SAVE POINTER TO THE SINE FACTORIAL TABLE. 


12UD C6yD 3C 




PSHX 




JUST ALLOCATE ANOTHER LOCAL (VALUE NOT IMPORTANT) 


1onA riOc Qi n/ 
12U6 C69E 00 U4 




LDAA 


#$4 


GET INITIAL LOOP COUNT. 


1 ono* A/in 7i" 
\dUf C6AU 36 




PSHA 




SAVE AS LOCAL ON STACK 


12Uo C6A1 1 3U 




TSY 




POINT TO LOCALS. 


1209 C6A3 BD C6 46 




JSR 


TFR1 TO? 
I r |\ i I 


TRANSFER FPACC1 TO FPACC2 


1210 C6A6 B0 CI 93 




JSR 


Fl TMllt 


GFT y A 2 IN FPACC1 


nil Z a O 10 Zrs ha 

1 211 C6A9 lo 6D OA 




TST 


10 Y 


ARE WE DOING THE SINE? 


r> Z a r> 0"7 1*1 n 

1212 C6AC 2/ OB 




BEQ 


o i rt \j^/ o i 


YES. GO DO IT. 


1213 C6AE CE Cf D5 




LDX 


#C0SFACT 


NO. GET POINTER TO COSINE FACTORIAL TABLE. 


1214 C6B1 CD EF Ul 




STX 


1 ,Y 


SAVE IT. 


12lD C6B4 BD C6 46 




JSR 


X PR 1X02 


COPY X A 2 INTO FPACC2. 


1216 C6Bf 2U 06 




BRA 


SINC0S4 


GENERATE EVEN POWERS OF "X" FOR COSINE. 


12 \( C6B9 BD Cf AA 


SINC0S7 


JSR 


EXG1AND2 


PUT X'2 IN FPACC2 & X IN FPACC1 . 


niO p/hn nrs r* 1 ri7 

!2lo C6BC BD CI 93 


SINC0S1 


JSR 


FLTMUL 


CREATE X A 3,5,7,9 OR X A 2,4,6,8. 


I2ly C6BF DE 02 


SINC0S4 


LDX 


FPACC1MN+1 


SAVE EACH ONE ON THE STACK. 


1 ion rAr 1 7p 
122U C6C1 3C 




PSHX 






1*5*11 n zri r\ r- nn 
1221 C6C2 DE UU 




LDX 


FPACC1EX 




1 ooo rAr/. ir 
\c-CC LOLh jL 




PSHX 






1 597 r Arc: oa n/ 
I ceo LOUD yo Uh 




LDAA 


MANTSGN1 




1 oo/ rAr7 7.A 
ltf.4 LOL/ jO 




PSHA 




SAVE THE MANTISSA SIGN. 


1 ooc rAr a in a a nn 

1 C.C.J LOLO 1 OA UU 




DEC 


0,Y 


HAVE WE GENERATED ALL THE POWERS YET? 


1 OOA rArc OA cc 
1226 L6LB 26 EF 




BNE 


SINC0S1 


NO. GO DO SOME MORE. 


1 007 rArn (JA n/ 
I del LOLU oO Uh 




LDAA 


#$4 


SET UP LOOP COUNT. 


1009 rArc is a7 nn 
Itto LOLr lO Af UU 




STAA 


0,Y 




1000 rAno "?n 

IA.C.7 Love. JU 




TSX 




POINT TO POWERS ON THE STACK. 


1 0?.n rAr»"? rn c c n"Z 
I<-.jU LOUj CD tr Uj 


S I NC0S2 


STX 


3,Y 


SAVE THE POINTER. 


1*511 riiriiC pn err ni 
12.51 L6D6 LU ct Ul 




LDX 


1,Y 


GET THE POINTER TO THE FACTORIAL CONSTANTS. 


1 07.0 rAnO. or\ ro 
1232 C6Dy BD Co 66 




JSR 


GETFPAC2 


PUT THE NUMBER IN FPACC2. 


1 0'Z'i rAnr no 
I cjj LOUL UC3 




I NX 




POINT TO THE NEXT CONSTANT. 


I LOUD uo 




INX 






1 OtC rAnc no 
1 253 L6Uh UiS 




I NX 






1 0"? A r An c no 
I £50 LODr Uo 




I NX 






1 0"7. "7 r* £ c n nr* ni 
125f L6hU LD tr U I 




STX 


1 ,Y 


SAVE THE POINTER. 


107.0 r Act rn cc m 
1 £.50 LOt j LU th Uj 




LDX 


3,Y 


GET POINTER TO POWERS. 


^ o~z.o r Ac A hA nn 
I2jt L6t6 A6 UU 




LDAA 


0,X 


GET NUMBER SIGN. 


10/n r acq Q7 n/ 
124U LOEo vf U4 




STAA 


MANTSGN1 


PUT IN FPACC1 MANTISSA SIGN. 


1 O/ 1 p £ c a m ni 

1241 C6EA EC Ul 




LDD 


1 X 


GET LOWER 16-BITS OF THE MANTISSA. 


1 1 / O r- r\C\ n n 

1242 C6EC DD 00 




STD 




pi IX IM FPArn MANXISSA 


1 O / 7 pZrr rp fi7 

1243 C6EE EC U3 




LDD 


3,X 


GET HIGH 8 BITS OF THE MANTISSA & EXPONENT. 


1244 C6FU DD U2 




STD 


FPACC1MN+1 


PUT IT IN FPACC1 EXPONENT & MANTISSA. 


10/c pzn nn r* i m 

124b C6F2 BD CI y3 




JSR 


FLTMUL 


MULTIPLY THE TWO. 


10/^ f ice r*r\ r~ r- ri"7 

1246 C6FD CD EE 03 




LDX 


3,Y 


GET POINTER TO POWERS BACK. 


10/7 pAcO nr no 
124r C6Fo DC U2 




LDD 


FPACC1MN+1 


SAVE RESULT WHERE THE POWER OF X WAS. 


i*l/o r* £ r a r-f* r\~7 

1248 C6FA ED 03 




STD 


3,X 




1249 C6FC DC 00 




LDD 


FPACC1EX 




1250 C6FE ED 01 




STD 


1,X 




1251 C700 96 04 




LDAA 


MANTSGN1 


SAVE SIGN. 



1252 C702 A7 00 




STAA 


0,X 




1253 C704 08 




I NX 




POINT TO THE NEXT POWER. 


1254 C705 08 




I NX 






1255 C706 08 




INX 






1256 C707 08 




I NX 






1257 C708 08 




INX 






1258 C709 18 6A 00 




DEC 


0,Y 


DONE? 


1259 C70C 26 C5 




BNE 


SINC0S2 


NO. GO DO ANOTHER MULTIPLICATION. 


1260 C70E 86 03 




LDAA 


#$3 


GET LOOP COUNT. 


1261 C710 18 A7 00 




STAA 


0,Y 


SAVE I T . 


1262 C713 CD EE 03 


SINC0S3 


LDX 


3,Y 


POINT TO RESULTS ON THE STACK. 


1263 C716 09 




DEX 




POINT TO PREVIOUS RESULT. 


1264 C717 09 




DEX 






1265 C718 09 




DEX 






1266 C719 09 




DEX 






1267 C71A 09 




DEX 






1268 C71B CD EF 03 




STX 


3,Y 


SAVE THE NEW POINTER. 


1269 C71E A6 00 




LDAA 


0,X 


GET NUMBERS SIGN. 


1270 C720 97 09 




STAA 


MANTSGN2 


PUT IT IN FPACC2. 


1271 C722 EC 01 




LDD 


1.x 


GET LOW 16 BITS OF THE MANTISSA. 


1272 C724 DD 05 




STD 


FPACC2EX 


PUT IN FPACC2. 


1273 C726 EC 03 




LDD 


3.X 


GET HIGH 8 BIT & EXPONENT. 


1274 C728 DD 07 




STD 


FPACC2MN+1 


PUT IN FPACC2. 


1275 C72A BD C2 3C 




JSR 


FLTADD 


GO ADD THE TWO NUMBERS. 


1276 C72D 18 6A 00 




DEC 


O.Y 


DONE? 


1277 C730 26 E1 




BNE 


SINC0S3 


NO. GO ADD THE NEXT TERM IN. 


1278 C732 18 6D OA 




TST 


10,Y 


ARE WE DOING THE SINE? 


1279 C735 27 08 




BEQ 


SINC0S5 


YES. GO PUT THE ORIGINAL ANGLE INTO FPACC2. 


1280 C737 CE C7 E3 




LDX 


#ONE 


NO. FOR COSINE PUT THE CONSTANT 1 INTO FPACC2. 


1281 C73A BD C8 66 




JSR 


GETFPAC2 




1282 C73D 20 OF 




BRA 


SINC0S6 


GO ADD IT TO THE SUM OF THE TERMS. 


1283 C73F 18 A6 05 


SINC0S5 


LDAA 


5,Y 


GET THE VALUE OF THE ORIGINAL ANGLE. 


1284 C742 97 09 




STAA 


MANTSGN2 


PUT IT IN FPACC2. 


1285 C744 18 EC 06 




LDD 


6.Y 




1286 C747 DD 05 




STD 


FPACC2EX 




1287 C749 18 EC 08 




LDD 


8,Y 




1288 C74C DD 07 




STD 


FPACC2MN+1 




1289 C74E BD C2 3C 


SINC0S6 


JSR 


FLTADD 


GO ADD IT TO THE SUM OF THE TERMS. 


1290 C751 30 




TSX 




NOW CLEAN UP THE STACK. 


1291 C752 8F 




XGDX 




PUT STACK IN D. 


1292 C753 C3 00 1F 




ADDD 


#31 


CLEAR ALL THE TERMS & TEMPS OFF THE STACK. 


1293 C756 8F 




XGDX 






1294 C757 35 




TXS 




UPDATE THE STACK POINTER. 


1295 C758 39 




RTS 




RETURN. 


1296 


* 








1297 


* 








1298 C759 


ANGRED 


EQU 


* 




1299 C759 4F 




CLRA 




INITIALIZE THE 45'S COMPLIMENT FLAG. 


1300 C75A 36 




PSHA 




PUT IT ON THE STACK. 


1301 C75B 4C 




INCA 




INITIALIZE THE QUAD COUNT TO 1. 


1302 C75C 36 




PSHA 




PUT IT ON THE STACK. 


1303 C75D 18 30 




TSY 




POINT TO IT. 


1304 C75F CE C7 EB 




LDX 


#THREE60 


POINT TO THE CONSTANT 360. 


1305 C762 BD C8 66 




JSR 


GETFPAC2 


GET IT INTO FPACC. 


1306 C765 7D 00 04 




TST 


MANTSGN1 


IS THE INPUT ANGLE NEGATIVE: 


1307 C768 2A 03 




BPL 


ANGRED1 


NO. SKIP THE ADD. 


1308 C76A BD C2 3C 




JSR 


FLTADD 


YES. MAKE THE ANGLE POSITIVE BY ADDING 360 DEG 


1309 C76D 7A 00 05 


ANGRED1 


DEC 


FPACC2EX 


MAKE THE CONSTANT IN FPACC2 90 DEGREES. 


1310 C770 7A 00 05 




DEC 


FPACC2EX 




1311 C773 BD C5 4D 


ANGRED2 


JSR 


FLTCMP 


IS THE ANGLE LESS THAN 90 DEGREES ALREADY? 


1312 C776 23 08 




BLS 


ANGRED3 


YES. RETURN WITH QUAD COUNT. 


1313 C778 BD C2 FE 




JSR 


FLTSUB 


NO. REDUCE ANGLE BY 90 DEGREES. 


1314 C77B 18 6C 00 




INC 


0,Y 


INCREMENT THE QUAD COUNT. 


1315 C77E 20 F3 




BRA 


ANGRED2 


GO SEE IF IT'S LESS THAN 90 NOW. 


1316 C780 18 A6 00 


ANGRED3 


LDAA 


O.Y 


GET THE QUAD COUNT. 


1317 C783 81 01 




CHPA 


#1 


WAS THE ORIGINAL ANGLE IN QUAD 1? 



1318 


C785 


27 OB 






BEQ 


ANGRED4 


VTO PPikJDI IT C TDTP CllllPTTPikl AC IC 

YES. COMPUIb TRIG pUNLIION Ab IS. 




P7Q7 


oi n7 

81 Uj 






CMPA 


ffj 


UPi MAC TUC ODTPTUAt AllPI C Till nliAH 77 

NO. WAS Inb ORIGINAL ANGLb IN UUAU $! 


1320 


C789 


27 07 






BEQ 


a n pn p Pi / 

ANGRED4 


VP C PPilim ITC TUC TD?P CI 111 PT T Pill AC 1 [ III Pll 1 A n 1 

ifcS. LOMPUIb Inb IRIG rUNLIIUN Ab I r iN UUAL) I 


1 77 1 


C78B 


ha c c 
oo r r 






LDAA 


ff*P P 


kin Ml ICT PPiMDllTE TUC TDTP CIlkirTTnkt AC TUC On I C 
NU. nUb I LUnrU 1 1 I Pit IKlu PUNLllUN UP I Pit yu o 


1777 


C78D 


y f Uh 






STAA 


kJ A UTCPII 1 

MAN I oGN I 


LUMr L 1 MbN 1 ANuLt . 


1 777 


Lf or 


□n r*o 7p 
oU Lti jL 






JSR 


FLTADD 


Ann on ncPDCcc to tuc kicPATcn aupi c 
AUU tU UbGKbbb 10 Inb NbGAIfcU ANGLb. 


I JCH 




7a nn (W 
(ft UU Uj 




ANLKtUH 


UbL 


CO A PP7CV 

PHALLxbA 


u A f p TUC A v] PI C !U CDfl PP7 /.C. riCPDCCC 
nAF.t IPit ftNuLt IN PrftLLc HJ UtoKtts . 


1 77C 
1 SCO 


P70C 
C / yj 


nn pC / r\ 

BD C5 4D 






JSR 


FLTCMP 


IS THE ANGLE < 45 DEGREES? 


1 jco 


P70Q 


77 An 
£j UD 






BLS 


ANGRED5 


O T T 1 C r\W AC IT TP 

YES. IT'S OK AS IT IS. 


1 Jdf 


C79A 


7p nc 
/U UU Uj 






INC 


FPACC2EX 


wt\ uiipt pct tup onip prtuni lurur 

NO. MUST GET THE 90 1 S COMPLIMENT. 


1710 
I JtO 


C79D 


86 FF 






LDAA 


#$FF 


uii^r rr*APPl ucrATtv/r 
MAKE FPACC1 NEGATIVE. 


IJC7 


r7Qc 
L(Vr 


Q7 n/ 
yf Uh 






STAA 


U fl 1IT f'TLI 1 

MANTSGN1 




1 7in 
1 jjU 


n7» 1 


on P7 7r 
OU Id. 51 






JSR 


FLTADD 


ppt tup onic pp^un i r urkiT 

GET THE 9U'S COMPLIMENT. 


1 77 1 


C7A4 


18 6C 01 






INC 




SET THE FLAG. 


1332 


C7A7 


33 




ANGRED5 


PULB 




GET THE QUAD COUNT. 




P7A q 


32 






PULA 




ppt t 1 1 p fsf-v. j r\ i t iiniT ri ap 

GET THE COMPLIMENT FLAG. 


1 77/ 
I JJH 


L/Ay 


70 

jy 






RTS 




nrTi inn iiitii Tiir- ni i*n hit O rnun lurur ri n /~ 

RETURN WITH THE QUAD COUNT & COMPLIMENT FLAG. 


177c; 








* 






1 77X 
I J JO 
















1777 


C7AA 






EXGl ANDd 


EQU 






1 770 


C7AA 


DC 00 






LDD 


FPACC1EX 




1 77Q 


C7AC 


nc nc 
Db Uj 






LDX 


FPACCZEX 




1 7/ n 


C7AE 


DD 05 






STD 


rn a p p p w 

FPACC2EX 




17/1 

l jh! 


C7B0 


DF 00 






STX 


FPACCIEX 




1342 


C7B2 


DC 02 






LDD 


FPACC1MN+1 




1343 


C7B4 


DE 07 






LDX 


FPACC2MN+1 




1344 


C7B6 


DD 07 






STD 


FPACC2MN+1 




1 7/ c 

1 j*o 


C7B8 


DF 02 






STX 


FPACC1MN+1 




1346 


C7BA 


96 04 






LDAA 


MANTSGN1 




1347 


C7BC 


D6 09 






LDAB 


MANTSGN2 




1348 


C7BE 


97 09 






STAA 


MANTSGN2 




1349 


C7C0 


D7 04 






STAB 


MANTSGN1 




1 jjU 


p7p7 


39 






RTS 




RETURN. 


17C1 

1 JJ 1 
















17C1 
















17^7 
I J J J 


p7n7 

Lf Lj 






SINFACT 


EQU 


* 




1 7C/ 


C7C3 


6E 38 EF 


ID 




FCB 


$6E,$38,$EF, 


, SID +(1/9!) 


1355 


C7C7 


74 DO 0D 


01 




FCB 


$74,$D0,$0D,$01 -(1/7!) 


1 7C 


C7CB 


7A 08 88 89 




FCB 


$7A,$08,$88,$89 +(1/5!) 


1 7C.7 


C7CF 


7E AA AA 


AB 




FCB 


$7E,$AA,$AA,$AB -(1/3!) 


1 7cq 

IJJO 
















1 7C.O 

I JJ7 
















1 7Afi 


P7H7 
L f U j 






pripr apt 

LOSr ALT 


EQU 


* 




1 7X1 
I JO I 


P7n7 
Lf Uj 


71 50 0D 


01 




FCB 


$71, $50, SOD. 


,$01 +(1/8!) 


1362 


C7D7 


77 B6 0B 


61 




FCB 


$77,$B6,S0B,$61 -(1/6!) 


1 7X7 
1 jOj 


C7DB 


7C 2A AA 


AB 




FCB 


$7C,$2A,$AA,$AB +(1/4!) 


1 7A/ 
1 OOH 


C7DF 


80 80 00 


00 




FCB 


$80, $80, $00, $00 -(1/2!) 


1 7A>; 








it 








1 7Xi 
1 JOO 
















17X7 
I JO # 


C7E3 


81 00 00 


00 


ONE 


FCB 


$81, $00, $00, $00 1.0 


1 368 


C7E7 


82 49 OF 


D8 


PI 


FCB 


$82,$49,$0F,$DB 3.1415927 


1369 


C7EB 


89 34 00 


00 


THREE60 


FCB 


$89, $34, $00, $00 360.0 


1370 








* 








1371 








* 








1372 








* 









1373 




TTL 


FLTTAN 




1374 




****************************************************************************** 


1375 




* 




* 


1376 




* 


FLOATING POINT TANGENT * 


1377 




* 




* 


1378 




****************************************************************************** 


1379 




* 






1380 




* 






1381 C7EF 




FLTTAN EQU 


* 




1382 C7EF BD 


C8 39 


JSR 


PSHFPAC2 


SAVE FPACC2 ON THE STACK . 


1383 C7F2 BD 


C6 46 


JSR 


TFR1T02 


PUT A COPY OF THE ANGLE IN FPACC2. 


1384 C7F5 BD 


C6 6F 


JSR 


FLTCOS 


GET COSINE OF THE ANGLE. 


1385 C7F8 BD 


C7 AA 


JSR 


EXG1AND2 


PUT RESULT IN FPACC2 & PUT ANGLE IN FPACC1 . 


1386 C7FB BD 


C6 53 


JSR 


FLTSIN 


GET SIN OF THE ANGLE. 


1387 C7FE BD 


C3 OA 


JSR 


FLTDIV 


GET TANGENT OF ANGLE BY DOING SIN/COS. 


1388 C801 24 


08 


BCC 


FLTTAN1 


IF CARRY CLEAR, ANSWER OK. 


1389 C803 CE 


C8 OF 


LDX 


#MAXNUM 


TANGENT OF 90 WAS ATTEMPTED. PUT LARGEST 


1390 C806 BD 


C8 50 


JSR 


GETFPAC1 


NUMBER IN FPACC1. 


1391 C809 86 


07 


LDAA 


#TAN90ERR 


GET ERROR CODE IN A. 


1392 C80B BD 


C8 43 


FLTTAN1 JSR 


PULFPAC2 


RESTORE FPACC2. 


1393 C80E 39 




RTS 




RETURN. 


1394 




* 






1395 




* 






1396 C80F 




MAXNUM EQU 


* 




1397 C80F FE 


7F FF FF 


FCB 


$FE,$7F,$FF,$FF LARGEST POSITIVE NUMBER WE CAN HAVE. 


1398 




* 






1399 




* 






1400 




* 
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AN974 



1401 




TTL 


TRIGUTIL 






1402 


****************************************************************************** 


1403 












1404 








TRIG UTILITIES 


* 


1405 












1406 


* 


The routines "DEG2RAD" and "RAD2DEG" are used to convert angles 


* 


1407 


* 


from degrees-to-radians and radians-to-degrees respectively. The 


* 


1408 




routine "GETPI" 


will place the value of PI into FPACC1 . This 




1409 




routine should be used if the value of PI is needed in calculations 




1410 




since 


it is accurate to the full 24-bits of the mantissa. 


* 


1411 










* 


1412 








***************************************************** 








1413 












1414 


* 










1415 C813 


UbbcKAU 


EQU 








1416 C813 BD C8 39 




JSR 


PSHFPAC2 


SAVE FPACCZ. 




1417 C816 CE C8 31 




LDX 


#PIOV180 


POINT TO CONVERSION CONSTANT Pl/itSU. 




1418 C819 BO C8 66 


DEG2RAD1 


JSR 


GETFPAC2 


PUT IT INTO FPACCi. 




1419 C81C BD C1 93 




JSR 


FLTMUL 


CONVERT DEGREES TO RADIANS. 




1420 C81F BD C8 43 




JSR 


PULFPAC2 


RESTORE FPACC2. 




1421 C822 39 




RTS 




RETURN. (NOTE! DON'T REPLACE THE "JSR/RTS" WITH 




1422 








A "JMP" IT WILL NOT WORK.) 




1423 












1424 


* 










1425 C823 


RAD2DEG 


EQU 


* 






1426 C823 BD C8 39 




JSR 


PSHFPAC2 


SAVE FPACC2. 




1427 C826 CE C8 35 




LDX 


#C180OVP! 


POINT TO CONVERSION CONSTANT 180/PI . 




1428 C829 20 EE 




BRA 


DEG2RAD1 


GO DO CONVERSION & RETURN. 




1429 












1430 












1431 C82B 


GETPI 


EQU 


* 






1432 C82B CE C7 E7 




LDX 


m 


POINT TO CONSTANT "PI". 




1433 C82E 7E C8 50 




JMP 


GETFPAC1 


PUT IT IN FPACC1 AND RETURN. 




1434 












1435 












1436 C831 


PIOV180 


EQU 


* 






1437 C831 7B OE FA 35 




FCB 


$7B,$0E,$FA,$35 




1438 


* 










1439 C835 


C180OVPI 


EQU 


* 






1440 C835 86 65 2E E1 




FCB 


$86, $65, i 


12E,$E1 




1441 


* 










1442 


* 










1443 


* 
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1444 






TTL 


PSHPULFPAC2 




1445 




****************************************************************************** 


1446 




* 






* 


1447 




* 


The following two 


subroutines, PSHFPAC2 & PULPFAC2, push FPACC2 * 


1448 




* 


onto and pull FPACC2 off of the hardware stack respectively. * 


1449 




* 


The number is stored in the "memory format". 


1450 




* 






* 


1451 




****************************************************************************** 


1452 




* 








1453 




* 








1454 C839 




PSHFPAC2 


EQU 






1455 C839 38 






PULX 




GET THE RETURN ADDRESS OFF OF THE STACK. 


1456 C83A 3C 






PSHX 




ALLOCATE FOUR BYTES OF STACK SPACE. 


1457 C83B 3C 






PSHX 






1458 C83C 8F 






XGDX 




PUT THE RETURN ADDRESS IN D . 


1459 C83D 30 






TSX 




POINT TO THE STORAGE AREA. 


1460 C83E 37 






PSHB 




PUT THE RETURN ADDRESS BACK ON THE STACK. 


1461 C83F 36 






PSHA 






1462 C840 7E 


C8 8C 




JMP 


PUTFPAC2 


GO PUT FPACC2 ON THE STACK & RETURN. 


1463 












1464 












1465 C843 




PULFPAC2 


EQU 


* 




1466 C843 30 






TSX 




POINT TO THE RETURN ADDRESS. 


1467 C844 08 






I NX 




POINT TO THE SAVED NUMBER . 


1468 C845 08 






INX 






1469 C846 8D 


C8 66 




JSR 


GETFPAC2 


RESTORE FPACC2. 


1470 C849 38 






PULX 




GET THE RETURN ADDRESS OFF THE STACK. 


1471 C84A 31 






INS 




REMOVE THE NUMBER FROM THE STACK. 


1472 C84B 31 






INS 






1473 C84C 31 






INS 






1474 C84D 31 






INS 






1475 C84E 6E 


00 




JMP 


0,X 


RETURN . 


1476 




* 








1477 




* 








1478 




* 
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1479 
\hi y 












TTL 


GETFPAC 






1480 
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1481 










* 










1482 










* 




GETFPACx SUBROUTINE 




1483 










* 










1484 










* 


The GETFPAC1 and GETFPAC2 subroutines get a floating point number 


* 


1485 










* 


stored 


in memory and 


put it into either FPACC1 or FPACC2 in a format 


* 


1486 










* 


that h 


; expected by all the floating point math routines. These 


* 


1487 












routines may easily be replaced to convert any binary floating point 


* 


1488 










* 


format 


(i.e. IEEE format) to the format required by the math 


* 


1489 










* 


routines. The "memory" format converted by these routines is shown 




1490 










* 


below: 






* 


1491 










* 








* 


1492 










* 


31 


24 23 22 





* 


1493 










* 


exponent s 


mantissa 




1494 










* 








* 


1495 












The exponent is biased by 128 to facilitate floating point 


* 


1496 










* 


comparisons. The sign bit is for positive numbers and 1 




1497 










* 


for negative numbers. 


The mantissa is stored in hidden bit 


* 


1498 










* 


normalized format so 


that 24 bits of precision can be obtained. 


* 


1499 










* 


Since a normalized floating point number always has its most 


* 


1500 










* 


significant bit set. 


we can use the 24th bit to hold the mantissa 


* 


1501 










* 


sign. 


This allows us to get 24 bits of precision in the mantissa 




1502 










* 


and store the entire 


number in just 4 bytes. The format required by 


* 


1503 










* 


the math routines uses a seperate byte for the sign, therfore each 


* 


1504 










* 


floating point accumulator requires five bytes. 


* 


1505 










* 


<:******■ 


**************! 


************************** ****** ***************** 


* 


1506 
1507 










* 








** 


1508 










* 










1509 C850 










GETFPAC1 EQU 


* 






1510 C850 


EC 


00 








LDD 


0,X 


GET THE EXPONENT & HIGH BYTE OF THE MANTISSA, 




1511 C852 


27 


OB 








BEQ 


GETFP12 


IF NUMBER IS ZERO, SKIP SETTING THE MS BIT. 




1512 C854 


7F 


00 04 






CLR 


MANTSGN1 


SET UP FOR POSITIVE NUMBER. 




1513 C857 


5D 










TSTB 




IS NUMBER NEGATIVE? 




1514 C858 


2A 


03 








BPL 


GETFP11 


NO. LEAVE SIGN ALONE. 




1515 C85A 


73 


00 


04 






COM 


MANTSGN1 


YES. SET SIGN TO NEGATIVE. 




1516 C85D 


CA 


80 






GETFP11 


ORAB 


#$80 


RESTORE MOST SIGNIFICANT BIT IN MANTISSA. 




1517 C85F 


DD 


00 






GETFP12 


STD 


FPACC1EX 


PUT IN FPACC1 . 




1518 C861 


EC 


02 








LDD 


2,X 


GET LOW 16-BITS OF THE MANTISSA. 




1519 C863 


DD 


02 








STD 


FPACC1MN+1 


PUT IN FPACC1. 




1520 C865 


39 










RTS 




RETURN. 




1521 










* 










1522 










* 










1523 C866 










GETFPAC2 EQU 


* 






1524 C866 


EC 


00 








LDD 


o,x 


GET THE EXPONENT & HIGH BYTE OF THE MANTISSA, 




1525 C868 


27 


OB 








BEQ 


GETFP22 


IF NUMBER IS 0, SKIP SETTING THE MS BIT. 




1526 C86A 


7F 


00 


09 






CLR 


MANTSGN2 


SET UP FOR POSITIVE NUMBER. 




1527 C86D 


5D 










TSTB 




IS NUMBER NEGATIVE? 




1528 C86E 


2A 


03 








BPL 


GETFP21 


NO. LEAVE SIGN ALONE. 




1529 C870 


73 


00 


09 






COM 


MANTSGN2 


YES. SET SIGN TO NEGATIVE. 




1530 C873 


CA 


80 






GETFP21 


ORAB 


#$80 


RESTORE MOST SIGNIFICANT BIT IN MANTISSA. 




1531 C875 


DD 


05 






GETFP22 


STD 


FPACC2EX 


PUT IN FPACC1. 




1532 C877 


EC 


02 








LDD 


2,X 


GET LOW 16-BITS OF THE MANTISSA. 




rft7Q 

P J -i-J L*U 1 7 


DD 


07 








STD 


FPACC2MN+1 


PUT IN FPACC1. 






jy 










RTS 




RETURN. 




1535 










« 










1536 










* 










1537 










* 











1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 



TTL 
*********** 



PUTFPAC 



C87C 
C87C DC 
C87E 7D 
C881 2B 
C883 C4 
C885 ED 
C887 DC 
C889 ED 
C88B 39 



C88C 
C88C DC 
C88E 7D 
C891 2B 
C893 C4 
C895 ED 
C897 DC 
C899 ED 
C89B 39 



00 

00 04 

02 

7F 

00 

02 

02 



05 

00 09 

02 

7F 

00 

07 

02 



PUTFPACx SUBROUTINE 

These two subroutines perform to opposite function of GETFPAC1 and 
GETFPAC2. Again, these routines are used to convert from the 
internal format used by the floating point package to a "memory" 
format. See the GETFPAC1 and GETFPAC2, documentation for a 
description of the "memory" format. 



********** 



PUTFPAC1 EQU 
LDD 
TST 
BMI 
ANDB 

PUTFP11 STD 
LDD 
STD 
RTS 



PUTFPAC2 EQU 
LDD 
TST 
BMI 
ANDB 

PUTFP21 STD 
LDD 
STD 
RTS 



FPACC1EX 

MANTSGN1 

PUTFP11 

#$7F 

0,X 

FPACC1MN+1 
2,X 



FPACC2EX 
MANTSGN2 
PUTFP21 
#$7F 

o.x 

FPACC2MN+1 
2.X 



GET FPACC1 EXPONENT & UPPER 8 BITS OF MANT. 

IS THE NUMBER NEGATIVE? 

YES. LEAVE THE M.S. BIT SET. 

NO. CLEAR THE M.S. BIT. 

SAVE IT IN MEMORY 

GET L.S. 16 BITS OF THE MANTISSA. 



GET FPACC1 EXPONENT & UPPER 8 BITS OF MANT. 

IS THE NUMBER NEGATIVE? 

YES. LEAVE THE M.S. BIT SET. 

NO. CLEAR THE M.S. BIT. 

SAVE IT IN MEMORY 

GET L.S. 16 BITS OF THE MANTISSA. 
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ADDNXTD 


C0D2 *0229 0145 0221 




ADDNXTD1 


C10E *0261 0235 0238 0246 


0250 0258 


ANGRED 


C759 *1298 1144 1170 




ANGRED1 


C76D *1309 1307 




ANGRED2 


C773 * 131 1 1315 




ANGRED3 


C780 *1316 1312 




ANGRED4 


C792 * 1324 1318 1320 




ANGRED5 


C7A7 *1332 1326 




ASCFLT 


COOO *0095 




ASCFLT1 


C014 *0105 




ASCFLT10 


COBC *0212 0144 




ASCFLT11 


C0C1 *0218 0128 0225 




ASCFLT12 


C0B6 *0206 0204 




ASCFLT13 


C070 *0172 0167 




ASCFLT14 


COAD *0202 0191 




ASCFLT15 


C082 *0181 0177 




ASCFLT16 


C085 *0182 0179 




ASCFLT2 


C01B *01 1 1 




ASCFLT3 


C02A *0122 0112 




ASCFLT4 


C043 *0142 0107 0117 0147 




ASCFLT5 


C039 *0132 0123 0127 0180 


mas n?ni 

U \ Q J U C U ! 


ASCFLT6 


C050 *0151 0155 




ASCFLT7 


C069 *0166 0157 0163 0213 


0220 


ASCFLT8 


C05F *0161 0165 0223 




ASCFLT9 


C08D *0186 0175 




C1800VPI 


C835 *1439 1427 




CHCKO 


C180 *0331 0277 0315 0361 


0364 0466 0472 0610 0616 0736 



0961 1021 1075 

CHCK01 C188 *0337 0335 

CONST 10 C18F *0342 0291 0772 

C0NSTP1 C18B *0341 0287 0777 

C0NSTP5 C549 *0919 0779 

COSFACT C7D3 *1360 1213 

DECDIG C52C *0903 0818 

DEG2RA0 C813 *1415 1147 1173 

DEG2RA01 C819 *1418 1428 

DIVOERR 0004 *0041 0612 

EXG1AND2 C7AA *1337 1217 1385 

EXPSIGN 0000 *0089 0181 0203 

FINISH C117 *0274 0168 0208 

FINISH1 C140 *0291 0286 

FINISH2 C146 *0293 0290 0295 

FINISH3 C14E *0296 0278 0285 

FLT2INT C5A1 *1019 

FLT2INT1 C5CA *1038 1027 

FLT2INT2 C5E3 *1052 1025 

FLT21NT3 C5EA *1055 1022 

FLT2INT4 C5DF *1049 1029 1039 

FLT2INT5 C58A *1031 1035 1041 

FLTADD C23C *0463 0582 0781 1102 1275 1289 1308 1323 1330 

FLTADD1 C24C *0471 0467 

FLTADD10 C248 *0469 0543 0560 

FLTADD1 1 C2DC *0546 0504 

FLTADD12 C209 *0544 0540 0552 0557 

FLTADD2 C262 *0481 0473 

FLTADD3 C27B *0494 0485 

FLTADD4 C254 *0474 0488 

FLTADD5 C282 *0497 0493 0501 

FLTADD6 C247 *0468 0480 0495 0544 

FLTADD7 C28B *0502 0483 

FLTADD8 C2AA *0519 0506 

FLTADD9 C2CE *0539 0525 

FLTASC C3DB *0733 

FLTASC1 C3EB *0742 0737 

FLTASC10 C49B *0821 0854 

FLTASC1 1 C49E *0822 0830 
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TFR1T02 


C646 *1 1 23 1091 


1 104 


1209 1215 1383 


THREE60 


C7EB *1369 1304 






TOLGSMER 


0005 *0042 1049 






UINT2FLT 


C577 *0959 0992 






U1NTFLT1 


C580 *0964 0962 






UMULT 


C1D9 *0395 0387 






UMULT1 


C1E3 *0402 0418 






UMULT2 


C1F4 *0411 0404 






UMULT3 


C217 *0426 0420 






UMULT4 


C234 *0439 0427 


0434 




UNFERR 


0003 *0040 0382 


0541 


0664 
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FLTASC12 


C4B1 


*0831 


0828 


FLTASC13 


C4E2 


•0856 


0859 


FLTASC14 


C500 


•0873 


0869 


FLTASC15 


C519 


•0888 


0862 


FLTASC16 


C4D3 


*0848 


0844 


FLTASC17 


C45C 


♦0791 


0786 


FLTASC18 


C490 


*0817 


0813 


FLTASC2 


C40E 


♦0760 


0757 


FLTASC3 


C438 


*0776 


0766 


FLTASC4 


C440 


*0779 


0770 


FLTASC5 


C414 


*0763 


0775 


FLTASC6 


C430 


*0773 


0778 


FLTASC7 


C452 


-0787 


0791 


FLTASC8 


C474 


*0804 


0797 


FLTASC9 


C493 


*0818 


0807 


FLTCMP 


C54D 


*0923 


0765 


FLTCMP1 


C563 


*0933 


0930 


FLTCMP2 


C564 


*0934 


0925 


FLTCOS 


C66F 


*1168 


1384 


FLTCOS1 


C68C 


*1183 


1179 


FLTDIV 


C30A 


*0608 


1101 


FLTDIV1 


C316 


*0615 


0611 


FLTDIV10 


C399 


*0684 


0679 


FLTDIV11 


C3C1 


*0703 


0700 


FLTDIV12 


C3D7 


*0712 


0708 


FLTDIV13 


C3C4 


*0704 


0702 


FLTDIVH 


C35E 


*0655 


0639 


FLTDIV2 


C320 


*0620 


0617 


FLTDIV3 


C33E 


*0636 


0633 


FLTDIV4 


C350 


*0648 


0636 


FLTDIV5 


C375 


*0666 


0662 


FLTDIV6 


C348 


*0642 


0665 


FLTDIV7 


C377 


*0667 


0663 


FLTDIV8 


C345 


*0640 


0666 


FLTDIV9 


C37B 


*0669 


0691 


FLTFMTER 


0001 


*0038 


0136 


FLTMUL 


C193 


*0358 


0293 


FLTSIN 


C653 


*1142 


1386 


FLTSIN1 


C65F 


*1149 




FLTSIN2 


C66A 


*1154 


1152 


FLTSQR 


C5EB 


*1073 




FLTSQR1 


C5F4 


*1078 


1076 


FLTSQR2 


C5FD 


*1083 


1079 


FLTSQR3 


C617 


*1098 


1095 


FLTSQR4 


C61A 


*1100 


1097 


FLTSQR5 


C61C 


*1101 


1110 


FLTSUB 


C2FE 


*0580 


1313 


FLTSUB1 


C303 


*0583 


0581 


FLTTAN 


C7EF 


*1381 




FLTTAN1 


C80B 


♦1392 


1388 


FPACC1EX 


0000 


*0030 


0100 



0799 

0769 
0936 
0927 

1181 
1387 



1311 1325 
0939 



0713 



0774 1210 1218 1245 1419 



1183 



0314 
0481 
0929 
1106 

FPACC1MN 0001 *0031 0229 
0255 
0408 
0522 
0554 
0675 
0707 
0827 
1032 
1244 

FPACC2EX 0005 *0033 0363 



0101 
0320 
0490 
0937 
1112 
0231 
0256 
0441 
0524 
0555 
0676 
0709 
0831 
1033 
1247 
0375 



0151 0206 
0360 0368 
0491 0556 
0960 0965 
1124 1199 
0234 0237 
0259 0262 
0443 0477 
0526 0529 
0631 0634 
0678 0681 
0710 0711 
0833 0834 
1042 1046 
1342 1345 
0465 0474 



0207 
0374 
0615 
1020 
1221 
0241 
0264 
0492 
0533 
0648 
0683 
0744 
0836 
1054 
1519 
0482 



0224 
0386 
0658 
1023 
1242 
0244 
0317 
0509 
0536 
0650 
0687 
0787 
0896 
1086 
1558 
0484 



0276 
0388 
0668 
1036 
1249 
0248 
0319 
0512 
0546 
0651 
0688 
0788 
0932 
1108 



0279 
0425 
0735 
1053 
1338 
0249 
0323 
0515 
0548 
0653 
0689 
0789 
0940 
1114 



0282 
0438 
0742 
1074 
1341 
0254 
0325 
0518 
0549 
0669 
0695 
0822 
0985 
1126 



0471 0475 
0782 0898 
1088 1103 
1517 1553 

0369 0405 
0519 0521 
0551 0553 
0671 0673 
0697 0704 
0824 0825 
0991 1031 
1197 1219 



0609 0637 0659 
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FPACC2MN 0006 *0034 



FPHULT1 

FPMULT2 

FPMULT3 

FPMULT4 

FPMULT5 

FPMULT6 

FPNORM 

FPNORM1 

FPNORM2 

FPNORM3 

FPN0RM4 

GETFP11 

GETFP12 

GETFP21 

GETFP22 

GETFPAC1 

GETFPAC2 

GETPI 
MANTSGN1 



MAXNUM 
N 9999999 
NSQRTERR 
NUMERIC 

NUMERIC1 
ONE 

OVFERR 

P9999999 

PI 

PIOV180 
PSHFPAC2 



PUTFP1 1 

PUTFP21 

PUTFPAC1 

PUTFPAC2 

PWR10EXP 

RAD2DEG 

SI NCOS 

SINCOS1 

SINCOS2 

SINCOS3 

SINCOS4 

SINCOS5 

SINCOS6 

SINCOS7 

SINFACT 

SINT2FLT 

SINTFLT1 

SINTFLT2 

TAN90ERR 



C1C1 
C1C8 
C1CF 
C1AE 
C1BC 
C1D5 
C161 
C160 
C16F 
C17C 
C17E 
C85D 
C85F 
C873 
C875 
C850 
C866 



*0381 
*0385 
*0388 
*0371 
*0378 
*0391 
*0313 
*0319 
*0320 
*0326 
*0328 
*1516 
•1517 
*1530 
*1531 
*1509 
*1523 



0928 
1327 
0230 
0416 
0547 
0696 
1569 
0376 
0377 
0362 
0365 
0389 
0380 
0283 



0938 1092 1100 
1339 1340 1531 
0232 0239 0243 
0421 0426 0476 
0550 0632 0635 
0698 0931 0941 



0381 
0370 



1111 1125 1272 1286 1309 1310 1324 
1564 

0261 0263 0402 0414 0415 

0496 0507 0510 0513 0516 0520 0523 

0649 0652 0655 0656 0657 0674 0677 

1113 1127 1274 1288 1343 1344 1533 



0384 

0539 0966 



0324 

0316 0318 

0321 

1514 

1511 

1528 

1525 

1390 1433 

0288 0292 0764 0768 
1418 1469 



C82B *1431 
0004 *0032 



MANTSGN2 0009 *0035 



0113 0371 0373 
0746 0756 0758 
1153 1182 1201 
1512 1515 1554 
0478 0503 0583 
1284 1347 1348 



C80F *1396 
C545 *0916 
0006 *0043 
C155 *0303 



C15F 
C7E3 
0002 
C541 
C7E7 
C831 
C839 



*0310 
*1367 
*0039 
*0913 
*1368 
*1436 
*1454 



0116 0126 0143 0154 0162 0174 0184 0190 
0307 

0558 0640 



PULFPAC2 C843 *1465 



C885 
C895 
C87C 
C88C 
0001 
C823 
C68F 
C6BC 
C6D3 
C713 
C6BF 
C73F 
C74E 
C6B9 
C7C3 
C589 
C595 
C59F 
0007 



*1557 
*1568 
*1552 
*1563 
*0090 
*1425 
*1195 
*1218 
*1230 
*1262 
*1219 
*1283 
*1289 
*1217 
♦1353 
*0984 
*0992 
*0998 
*0044 



0102 
0623 
1128 
1349 
0372 
1270 
1389 
0763 
1080 
0106 
0219 
0305 
1280 
0378 
0767 
1432 
1417 
0097 
1416 
0134 
1420 
1555 
1566 



1462 

0187 0192 0195 0199 

1149 1176 

1226 

1259 

1277 

1216 

1279 

1282 

1212 

1203 



0773 0780 1232 1281 1305 



0479 0502 0505 0538 0622 

0894 0924 0934 0997 1026 1047 1078 

1223 1240 1251 1306 1322 1329 1346 

0585 0621 0926 0935 1129 
1526 1529 1565 



0359 0464 0620 
1426 

0298 0391 0469 



0748 1083 1143 1169 1382 
0646 0892 1118 1155 1392 



0202 0280 0284 0289 0294 



0987 
0996 
1391 
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